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Preface 



This publication describes the Systenn/3 FORTRAN IV 
language and the use of the System/3 FORTRAN IV proces- 
sor to run programs written in the language. 

This publication is intended to be used as a reference 
manual by persons writing program;; in the System/3 FOR- 
TRAN IV language. You should ha/e some knowledge of 
FORTRAN before using this publication. A useful source 
of this information is the set of programmed instruction 
texts describing the System/3 FOR"RAN IV language, 
Order Numbers SR29-5015 through SR29-5019. 

System/3 FORTRAN IV contains those features defined 
in American National Standard Bas c FORTRAN X3.10- 
1966; language extensions supported by IBM 1 130 Basic 
FORTRAN IV; and additional capabilities previously 
available only with certain IBM Full FORTRAN IV com- 
pilers. 



The IBM System/3 Model 8 is supported by System/3 
Model 10 Disk System control programming and System/3 
Model 10 FORTRAN IV. The facilities described in this 
publication for the Model 10 are also applicable to the 
Model 8, even though the Model 8 is not referenced. Some 
of the devices discussed in- this publication might not be 
applicable for the Model 8. Model 8 users should be 
familiar ^ith the contents of IBM System/3 Model 8 
Introduction, GC21-5114. 

All references to the System/3 Model 15 in this publication 
apply to System/3 Models 15A, 15B, 15C, and 15D unless 
otherwise specified. 



The System/3 FORTRAN IV processor is a program product 
consisting of a compiler and a library of mathematical func- 
tions, service subprograms, and commercial subroutines. 



The System/3 FORTRAN IV program product operates 
on the IBM System/3 Model 10 Disk System, IBM System/3 
Model 6, IBM System/3 Model 12, and on the IBM 
System/3 Model 15. 



Direct Access Storage for Models 1 2 and 1 5 

The IBM 3340 Direct Access Storage Facility attaches to 
System/3 Model 12 and to System/3 Models 15B, 15C, 
and 15D. Also, the IBM 3344 Direct Access Storage 
attaches to System/3 Model 15D. Certain areas on the 
3340 and 3344 disks are treated as 5444 disks. These 
areas, known as 5444 simulation areas or simulation areas, 
are used for the program libraries and can also be used for 
data files. The remainder of the disk space, known as main 
data area, can only be used for data files. 

References in this manual to 5444, 5445, and 3340 are to 
be interpreted according to which disk storage device(s) 
is (are) attached to the system. Use the following table to 
determine the meaning of the reference: 







Models 12, 15B, 




Reference 


Model 15A Meaning 


15C Meaning 


Model 15D Meaning 


5444 


5444 Disk Storage Drive 


5444 simulation area 


Simulation area on 






on 3340 


3340 or 3344 


5445 


SAA'i Disk Storage 


Main data area on 3340 


Main data area on 3340 
or 3344 


3340 


Not applicable 


Main data area on 3340 


Main data area on 3340 
or 3344 



For further information, see the appropriate publications 
listed under Related Publications. 



IBM Svstem/3 5448 Disk Storage Drive 



The IBM System/3 5448 Disk Storage Drive on System/3 
Models 8 and 10 uses the same program product support 
as the IBM 5445 Disk Storage. However, a separate system 
control program feature is required for the 5448. In 
general, references to 5445 in this manual also apply to 
5448. For specific information about 5448 operating 
characteristics and programming support, see the IBM 
System/3 5448 Disk Storage Drive Program Reference 
Manual, GC21-5168. 



Related Publications 

Publications containing information about the System/3 
FORTRAN IV program product, System/3 Model 6, 
System/3 Model 8, System/3 Model 10 Disk System, 
System/3 Model 12, and System/3 P/lodel 15 are: 





Order Number of Publication for 


Manuals 


Sysrem/3 
Model 6 


System/3 
Model 8 


System/3 
Model 10 
Disk System 


System /3 
Model 1 2 


1 

System/3 
Model 1 5 






FORTRAN IV 
Commercial Subroutines 


SC28-6875 


Introduction 


GA21-9122 


GC21-5114 


GC21-7510 


GC2V5n6 


^ 
GC21-5094 j 


Operator's Guide 


GC21-7501 


GC21-7634 


GC21-7508 


GC21-5144 


GC21-5075 


System Generation 
Reference Manual 


GC21-5126 


GC21-7616 


Halt Guide 
(System Messages) 


GC:M-7541 


GC21-7540 


GC21-5145 


GC2 1-5076 


System Control 
Programming Reference 
(Operation Control 
Language) 


Gc:n-75i6 


GC21-7512 


GC21-5130 


5704-FO1 

GC21-5077 
5704-FO2:' 

GC21-5162 


Overlay Linkage Editor 
Reference Manual 


GC21 7561 


Disk Concepts and 
Planning Guide 


GC21-7571 


User's Guide 


^''^■&M9SK§fl§U 


GC21-5142 


M- 


Components 
Reference Manual 


GA34-0001 


GA21-9209 


GA21-9103 


GA21-9236 


GA21 9193 


3340 Reference 










GC21-5111 


3741 Reference 

Manual 










5704-FO2 
only 

GC21 5113 


' Availability date for GC21-5162 manual is not the same as for this manual. Orders sent shortly after the issue date 
of this manual might be considered invalid. 
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Part 1. System/3 FORTRAN IV Language 



Syitf m/3 FORTRAN IV consists of a language and a 
processor. 

Thi Syit8m/3 FORTRAN IV languige Is sspeclally useful 
In m\t\r\q source programs for appliuations that involve 
mathemBtlcal computstioni and other manipulation of 
numerical data, Source programs witten in the Sy5tem/3 
FORTRAN IV language consist of a set of statements 
eonstructid from the language elemunts described In this 
publication, 

Th§ prociiior consists of a FORTRAN compiler and a 
library of FORTRAN subprograms ihat perform operations 
required during program execution, In a process called 
compilation, the FORTRAN compiler analyzes the source 
program statements and translates them into an object 
module, In a process called llnk-edling. the object module 
ii combined with FORTRAN subprograms from the library, 
and with any user-written subprograms, and becomes a 
load module, suitable for execution. In a process called 
load module execution, the load module Is run by the 
System/3 System Centrei Program, 



Svstem/3 FORTRAN IV Language 3 



Chapter 1. FORTRAN Statements 



Source programs consist of a set of statements from which 
the compiler generates instructions, constants, and storage 
areas. A given FORTRAN statement: 

• Causes certain operations to be performed. 

• Specifies the nature of the data being handled. 

• Specifies the characteristics of the source program. 

FORTRAN statements are composed of certain FORTRAN 
keywords used in conjunction with the elements of the 
language: constants, variables and expressions. 

There are two broad classes of FORTRAN statements— exe- 
cutable statements and nonexecutable statements: 



Class 

Executable 
Statement 



Nonexecutable 
Statement 



Purpose 

Performs calculations 

Transfers diita between main storage and an input/output device 

Controls operation of an input/output device 

Changes the order of execution in the program 

Terminates program execution 

Provides initial values for variables and arrays 

Specifies the form in which data is to appear 
Defines the properties of variables, arrays, and functions 
Declares th; operations to be performed by statement functions 
Names and specifies arguments for subprograms 



Example 

A=B+C 

WRITE, READ 

REWIND 

GOTO 

STOP 

DATA 

FORMAT 
REAL«8 
CALC(I,J)=3*I/J 
SUBROUTINE SUB3(A.B 



FORTRAN Statements b 



Some examples of FORTRAN statements and their effects 
are: 

Statement Meaning 

A=96.0 Assigns the value 96.0 to the variable 

named A. 

C-A/3 The slash (/) indicates division. Thus, 

this statement means divide A by 3 and 
set C equal to the result. Using the data 
of the previous example, C wcjuld be 
given the value 32. 

For purposes of clarity in coding FORTRAN elements in 
this publication, we use uppercase letters to indicate actual 
coding, and lowercase letters to indicate a value' that must 
be supplied. 



CODING FORTRAN STATEMENTS 



Although the usual form of input to the compLiter is a 
deck of punched cards, the initial coding of FORTRAN 
statements is generally on a coding sheet. The FORTRAN 
coding form, order number GX28-7327, is shown in 
Figure 1. 



FORTRAN Coding Form 
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INSTRUCTIONS puNCH 
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Column$ 1-5-Statement Number 

Columns 1-5 can be used to enter a number by which the 
statement is referred to. Statement numbers can be assigned 
in any order; the sequence of operaticms depends only on 
the order of the itatements, not on their statement numbers. 
Blanks and leading zeros in statement numbers are ignored 
by the FORTRAN processor. Thus, 

00090 
90 

09 
and 90 

are equivalent. However, a given statument number can be 
BisignBd only once in a program unit. 



Colurnn l-CommentStBtemint 

Comments that explain the program can be written in 
columns 2-72 of a line having a C in column 1, Comments 
are not processed by the FORTRAN compiler, but are 
printed in the compiler listing, A eonment statement can- 
not appear between continuation llnis of a statement. 



Calumn S^^Continuation 

If a statement is too long for one line, it can be continued 
90 as many ai II suceessive lines by ijlacing a character 
ether than zero or a blank in column 6. If desired, the 
characters In column can be used to indicate the order of 
continuation lines; that is, the character A can be used for 
the first continuation line, B for the lecond, etc. A blank 
or zero in column 6 indicates that thu line is the initial line 
of a statement, 



Columns 7-72-FORTRAN Statement 

The FORTRAN statement must be written only in columns 
7-72 of each line of the coding form. 

Blanks can be used to improve the readability of a FOR- 
TRAN program because the compiler ignores blanks except 
in certain limited cases (literal fields of FORIVIAT or DATA 
statements and column 6 of a card). 

Thus 

A=B(I,J)-D-(C/E)-F«»K 
and 

A = B(I,J)-D-(C/E)-F»*K 
are equivalent. 

Columni 73-80 lor 73-96)-Program Identification 

Columns 73-80 (or 73-96 for 96-column cards) can be used 
for identifying information. These columns are not ana 
lyzed by the compiler, although the information in columns 
73-80 is printed in the compiler listing. When 96-column 
cards are used, columns 81-96 are not printed in the com- 
piler listing. 



FORTRAN Stasements 



ELEMENTS OF THE LANGUAGE 



In order to write FORTRAN programs, it is necessary to 
learn the rules for writing the following elements of the 
language: 



Name of Element 

Constant 
Variable 
Array pigment 



Mathematical 
expression 

Assignment 
statement 

Control statement 

Specification 
statement 

Input/Output 
statement 

Subprogram 
statement 



Purpose 

Specifies a numeric value 

Refers to a particular area in storage 

A member of a collection of data that has identical 
attributes 

Causes mathematical computations 

Assigns a quantity to a variable or array element 

Affects the order in which statements are executed 

Provides information about the data used in the source 
program, and the amount of storage required for it 

Gets data into the computer or transfers data to an 
output device 

Performs a series of statements to be performed 



ORDER OF STATEMENTS IN A FORTRAN PROGRAM 

The order of statements in a FORTRAN program is as 
follows: 



1. 

2. 
3. 
4. 



Subprogram statement for a subprogrcim. PROGRAM 
statement, if any, for a main program. 

IMPLICIT statement, if any. 

Other specification statements, if any. 

Statement function definitions, if any, to describe 
statement functions. 

5. Executable statements, at least one of which must 
be present. 

6. END statement, to indicate the end of the program. 

FORMAT and DATA statements can appear anywhere 
after the IMPLICIT statement, if present, and before the 
END statement. DATA statements, however, must follow 
any specification statements that contain the same variable 
or array names. 



Examples 

27 or 3.14159 
Xor Y 
X(l)orY(3,2) 

A+B or 3*J 

A = B/C 

DO or GO TO 

IMPLICIT, REAL 
COMMON 

READ .WRITE 



SUBROUTINE, 
FUNCTION 



Chapter 2. Constants, Variables, and Array Elements 



FORTRAN provides a means of expr(issing numeric con- 
stants, variable quantities, and array elements. The rules 
for expressing these quantities are quite similar to the rules 
of ordinary mathematical notation. However, each of these 
quantities can be expressed in one of two modes: integer 
or real (floating-point). 



Data Types and Data Description 

FORTRAN deals with arithmetic, literal, and hexadecimal 
data. Arithmetic data can be represented as a real or inte- 
ger number, a constant, a variable, or an array (a group of 
related members that have related attributes). 



Integer and Real Calculations 

Floating-point calculations are carried out between two 
real numbers in one of two degrees o" precision— single 
precision (REAL*4) or double precis on (REAL*8)— that 
can be specified by the user. The number of digits main- 
tained for single precision is approximately 7, and for 
double precision approximately 17. Some typical floating- 
point calculations are; 



Operation Symbols 

Operation symbols used in FORTRAN are; 

-H Addition 

Subtraction 
* Multiplication 

/ Division 

** Exponentiation 



Arithmetic 
Operation 



Result Df 
Calculation 



To express the arithmetic operation A=.4301 divided by 
1.7, the following statement can be used: 



A=.4301/1.7 
B=5./2. 
0=1. 6x. 7 
D=-2.7-H.2 



A=.25; 
B=2.5 
C=1.12 
D=-1.E 



A=4301/1.7 

To express the operation J equals the product of 5 and 2, 
this statement can be used: 



In floating-point calculations rounding does not occur; 
digits in excess of the precision are dropped. 



J=5*2 



Integer calculations are carried out differently; no decimal 
remainders are retained or used in computations. For 
example: 



Arithmetic 
Operation 



Result of 
Calculcition 



CONSTANTS 

A constant is a number that is used in computations with- 
out change during execution of the program. It appears 
in its actual numeric form in the source statement. For 
example, in the statement 



1=5/2 
1=5/2+7/2 



J=5x2 
K=-4+1 



1=2 (instead of 2.5, because 
th(! .5 is truncated) 

1=5 (intermediate truncation 
computes this as 2-t-3 
rather than 12/2) 

K=-3 



J=3*X 



3 is a constant because it appears in actual numeric form 



Constants, Variables, and Array Elements 



Four types of constants can be specified in FORTRAN: 

• Integer constant-written without a decimal point or 
exponent 

• Real constant-written with a decimal point and/or an 
exponent 

• Hexadecimal constant-the character Z followed by the 
hexadecimal characters through 9 and A through F. 

• Literal constant-a string of alphabetic, numeric, and/ or 
special characters enclosed in apostrophes 

The rules for writing each of these constants are given in the 
following sections. 



Integer Constants 

An integer constant is a whole number written without a 
decimal point, using the decimal digits 0, 1 9. A pre- 
ceding + or - sign is optional. An unsigned constant is 
assumed to be positive. 

All integer constants occupy four storage ioceitions (bytes). 
The magnitude of an integer constant cannot exceed 
2,147,483,647 (2^'-1). 

Examples: 

Valid Integer Constants 



+9 

186 

-327 

6 

45 

12314456 b (blank) is ignored by the orocessor 



Invalid Integer Constants Reason 

4.321 Contains a decimal point 

-3,675 Contains a comma 



5436578656 



Real Constants 



Exceeds the magnitude per- 
mitted by the System/3 
FORTRAN IV processor 



A real constant is any of the following: 

1. A basic real constant is a number written with a 
decimal point, using the decimal digits 0, 1, . . ., 9. 

A preceding -i- or - sign is optional. An unsigned con- 
stant is assumed to be positive. 

2. A basic real constant followed by a D or E, followed 
by an exponent. The exponent is a signed or unsigned 
one- or two-digit integer constant. An unsigned ex- 
ponent is assumed to be positive. 

3. An integer constant followed by a D or E, followed 
by an exponent. 

In the exponent, the letter E specifies a single-precision 
constant occupying four storage locations (bytes), and the 
letter D specifies a double-precision constant occupying 
eight storage locations. Unless it contains a D exponent, a 
real constant always occupies four storage locations. 

Precision: Single precision— 6 hexadecimal digits, or 
approximately 7.2 decimal digits. 

Double precision— 14 hexadecimal digits, or 
approximately 16.8 decimal digits. 

Magnitude: Single-precision and double-precision con- 
stants have the same magnitude limitations: 
0, or 16"*^ (approximately 10"''*) through 
16*^ (approximately lO''^). 
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The decimal exponent permits the expression of a real 
constant as the product of a basic real constant or integer 
constant times 10 raised to a desired power. 

Examples: 

Valid Real Constants Equivalent To 
(single precision) 

+0. 



7.0 X 10"= 7.0 

19761.2!) X 10' = 197612.5 

7.0 X 10' = 7000.0 



7.0 X 10-3 ^ QQQ-7 

Note: Tiis level of precision can- 
not be ac;commodated in four 
storage locations. Positions to 
the right of the decimal point 
that cannot be accommodated 
are truncated. 



Valid Real Constants 

(double precision) Equlvaleit To 

1 234567890 1 23456. D-93 

.1234567890123456 X 10"" 

7.9D03 



Invalid Real Constants Reason 




79D+03 
7.9D+3 
7.9D0 
7D03 



7.9 X 10' =7900.0 

7.9 X 10' = 7.9 
7.0 X 10= = 7000.0 



1 

3,471.1 
1.E 

1.2E+113 
23.5E+97 
21.3E-90 



Missing a decimal point or ex- 
ponent) 

Embedded comma 

Missing an integer constant 
following the E 

E is followed by a three-digit 
integer constant; must be one- 
or two-digits 

Magnitude outside the allowable 
range; 23.5 x 10'' greater than 
16" 

Magnitude outside the aHowablo 

range; 21.3 X 10~''° less than 
,e-6s 



Hexadecimal Constants 

A hexadecimal constant is used only in DATA initialization 
statements to specify initial values for variables and array 
elements. A hexadecimal constant contains the character 
Z followed by a hexadecimal number (0, 1, . . ., 9, A, B, C, 
D, E, F). 

In System/3, the basic unit of storage is an 8-bit byte. Under 
this sytem, one byte contains two hexadecimal digits. The 
internal (binary) form of each of the 16 possible hex digits 
is as follows: 



Hex Binary 



Hex Binary 






0000 


8 


1000 


1 


0001 


9 


1001 


2 


0010 


A 


1010 


3 


0011 


B 


1011 


4 


0100 


C 


1100 


5 


0101 


D 


1101 


6 


0110 


E 


1110 


7 


0111 


F 


1111 



Constants, Variables, and Array Elements 



If a constant with an odd number of digits is specified, a 
leading hexadecimal zero is added on the left to fill the stor- 
age location. 

Examples: 

The eight-digit hexadecimal number Z1C49A:!F1 represents 
the bit string 0001 1100 0100 1001 1010 0010 1111 0001 

The seven-dipit number ZBADFADE represents the bit 
string 0000 1011 1010 1101 1111 1010 1101 1110. The 
first four zero bits are implied because an odd number of 
hexadecimal digits was written. 

Further information about hexadecimal constants can be 
found in the section that describes the DATA initialization 
statement. 



Literal Constants 

A literal constant is a string of alphabetic, numeric, and/or 
special characters, enclosed in apostrophes. 

Each character requires one byte of storage. Note that the 
blank is considered a character. The appearance of a blank 
is significant only in literal constants and in statement con- 
tinuation requirements. If an apostrophe is to appear in the 
literal, it must be represented by two consecutive apostrophes 
with no intervening blank. 



VARIABLES 

A FORTRAN variable is a data item, identified by a name, 
that occupies a storage area. The value specified by the 
name is always the current value stored in the area. 

For example, in the statement 

A=5.0-HB 

both A and B are variables. The value of B was determined 
by some previously executed statement. The value of A is 
calculated when the above statement is executed, and de- 
pends on the previously calculated value of B. 

As with constants, a variable can be integer or real, depend- 
ing on whether the value it represents is integer or real, 
respectively. Because a variable represents an area of stor- 
age, it is assigned a length, either implicitly or explicitly. 
A real variable can have a length of either four or eight 
bytes. An integer variable can have a length of either two 
or four bytes. 

In order to distinguish between variables that derive their 
value from an integer, as opposed to a real number, the 
rules for naming each type of variable are different, al- 
though these rules can be overridden. 



Variable Names 



Literals can be used as data initialization values in the DATA 
statement. Rules for this usage are presented in the Chap- 
ter 7 description of the DATA statement. 

Examples: 



A variable name consists of from 1 to 6 alphabetic or 
numeric characters, of which the first must be alphabetic. 
In the context of this discussion, the character $ is con- 
sidered an alphabetic character. Blanks in a variable name 
are ignored. 



'X-COORDINATE 

'3.14159' 

'FRANCIS BACON' 'S ''HAMLET''' 



Y-COORDINATE Z -COORDINATE ' Examples: 



I 

ABCD 

BILL23 

I$2 

ITEMl 

I T E M 1 

ITEM 1 

In the above list, the last three names are considered 
identical. 



12 



The rules for naming variables allow for extensive selectivi- 
ty. In general, it is easier to follow the flow of a program if 
meaningful names are used wherever possible. For instance, 
to compute distance it would be possible to use the state- 
ment: 

A=B*C 
but it would be more meaningful to write: 

D=R*T 
or: 

DIST=RATE»TII\/IE 



ARRAYS 

An array is an ordered set of data items identified by a 
single name. A member of the array, called an array element 
is identified according to its position, by a quantity called 
a subscript. 

Arrays, like variables and constants, have a type associated 
with them. The rules for naming arrays are the same as the 
rules for naming variables. The type of an array name is 
determined by the same conventions that govern the type 
of a variable name. Each element of an array is of the type 
and length specified for the array name. 

Assume the following elements are contained in an array 
named NEXT: 



Variable Types 

The type of a variable corresponds to the type of the data 
the variable represents. Variable type can be specified in 
three ways: predefined, implicitly, or explicitly. 



15 
12 
18 
42 
19 



Predefined Convention 

If the first character of the variable name is I, J, K, L, M, or 
N, the variable is considered to be an integer variable of 
length 4. If the first character of thi; variable name is not 
I, J, K, L, M, or N, the variable is a real variable of length 4. 



Implicit Specification 

By use of the IMPLICIT statement, the FORTRAN proces- 
sor can be told to ignore the predefined convention for 
variable names whose initial letters are specified in the 
IMPLICIT statement. Thus, variables whose names begin 
with the letters I through N can be declared as type real, 
and those which begin with A through H or through Z 
can be declared as type integer. In addition, variables can 
be declared to be one of the optional lengths: two bytes 
for integer variables, or eight bytes for real variables. The 
rules for using the IMPLICIT statement are given later. 



Explicit Specification 

Explicit specification of type (and, optionally, length) is 
made for individual variables by using the INTEGER or 
REAL type-specification statements. These statements 
override predefined and IMPLICIT specifications. The 
rules for using these statements are given later. 



Suppose you want to refer to the second element in the 
group; in ordinary mathematical notation this would be 
NEXTj. In FORTRAN this would be 

NEXT(2) 

The quantity 2 is the subscript. Thus 

NEXT(2) has the value 12 
NEXT(4) has the value 42 

Similarly, ordinary mathematical notation might use NEXT, 
to represent any element of the set, NEXT, In FORTRAN, 
this might be written as NEXT(I) where I equals 1, 2, 3, 4, 
or 5. 



The array could be two dimensional, as for example, the 
array JO: 





Column 1 


Column 


2 


Column 3 


Row 1 


82 


4 




7 


Row 2 


12 


13 




14 


Row 3 


91 


1 




31 


Row 4 


24 


16 




10 


Row 5 


2 


8 




2 
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Suppose you want to refer to the element in row 2, column 
3: this would be 

JO(2,3) 
2 and 3 are the subscripts. Thus, 

JO(2,3) has the value 14 
J0(4,1) has the value 24 

Similarly, ordinary mathematical notations might use JO., 
to represent any element of the set JO. In FORTRAN, '' 
this might be written as JO(l,J) where I equals 1, 2, 3, 4, or 
5 and J equals 1, 2, or 3. 

The above notation can extend to three-dimensional arrays; 

JO(1,2,3) 
JO(l,J,K) 
JO(5,J,16) 

The use of an array in the source program must be preceded 
by its declaration in either a DIMENSION statement a 
COMMON or GLOBAL statement, or a type specification 
statement specifying the size of the array. These statements 
are explained later. 

Arrangement of Arrays in Storage 

An array is stored in ascending storage locations, with the 
value of the first of its subscripts increasing most rapidly, 
and the value of the last subscript increasing least rapidly. 

For example, the array named A, described by one subscript 
that varies from 1 to 5, appears in storage as follows: 

A(1) A(2) A(3) A(4) A(5) 

The array named B, described by two subscripts, with the 
first varying from 1 to 5 and the second from 1 to 3, appears 
in storage as follows: 

B(1,1) B(2,1) B(3,1) B(4,l) B(5,1) B(1,2) B(2 2) B(3 2) 
B(4,2) B(5,2) B(1,3) B(2,3) B(3,3) B(4,3) B(5,3) 

Note that B(1,2) and 8(1,3) follow in storage B(5,1) and 
B(5,2), respectively. 

The following list is the order of a three-dimensional array 
C(3,3,3): 

C(1,1,1) C(2,1,1) C(3,1,1) C(1,2,1) C(2,2,1J C(3 2 1) 
C(1,3,1) C(2,3,1) C(3,3,1) C(1,1,2) C(2,1,2) C(3 1 2) 
C(1,2,2) C(2,2,2) C(3,2,2) C(1,3,2) C(2,3,2) C(3,3 2) 
C(1,1,3) C(2,1,3) C(3,1,3) C(1,2,3) C(2,2,3) C(3 2 3) 
C( 1,3,3) C(2,3,3) C(3,3,3) 
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Subscripts 

A subscript is an integer quantity or a set of integer 
quantities separated by commas, enclosed in parentheses, 
and written immediately after the array name. The 
subscript is used to identify a particular element of an 
array. The number of subscript quantities in a subscript 
must be the same as the number of dimensions of the 
array. A maximum of three subscript quantities can 
appear in a subscript. 

Form of Subscripts 

A subscript must be in one of the following forms, (v repre- 
sents any unsigned nonsubscripted integer variable, and c 
and c' any unsigned integer constant): 

V 

c 

v-t-c or v-c 

c*v 

c*v-i-c' or c*v-c' 

Whichever subscript form you use, the evaluated result 
must be greater than 0, less than or equal to the range 
of the array, and less than or equal to 32,767. The 
evaluated result of a subscript is the product of all 
subscript quantities multiplied by the length of an 
element for the associated array. For example, if the 
subscript (200,4) is used to reference an element of 
an integer *4 array, the evaluated result is the product 
of the subscript quantities (200 x 4 = 800), multiplied 
by the length of an element (800 x 4 = 3200). 

Examples: 

Valid 
Subscripts 

(IMAX) 

(19) 

(JOB+2) 

(NEXT-3) 

(8*IQUAN) 

(5*L-t-7) 

(4*M-3) 

Invalid 
Subscripts 

(-1) 
(0) 

(-2»J) 

(1(3)) 

(K»2) 

(2+JOB) 



Form of 
Subscript 



V 

c 

v+c 

v-c 

c»v 

c*v-i-c 

c*v-c' 



Reason 



The variable cannot be signed. 

A subscript quantity cannot assume the 

value 0. 

The constant must be unsigned. 

A subscript cannot be subscripted. 

For multiplication, the constant must 

precede the variable, thus 2*K is correct. 

For addition, the variable must precede 

the constant; thus, JOB+2 is correct. 



Chapter 3. Arithmetic Assignment Statements and Expressions 



ARITHMETIC ASSIGNMENT STATEMENTS 

The arithmetic assignment statement defines a numeric 
calculation; it resembles a conventkmal arithmetic formula. 

The general form of an arithmetic assignment statement is: 

a=b 
where 

a is a variable or array element. 

b is an expression as defined under Expressions. 

Examples: 

The following are valid arithmetic assignment statements: 

A=B+C 
D(l)=E(l)+2.-F 

In an arithmetic assignment statement, the equal sign 
means is to be replaced by rather than is equivalent to. This 
distinction is important; for example, suppose an integer 
variable I has the value 3. Then, the statement 

1-1 + 1 

would give I the value 4. This feature enables the program- 
mer to keep counts and perform other required operations 
in the solution of a problem. 

The following is an example of a series of arithmetic assign- 
ment statements: 

Statement Meaning 

A=3.0 Store the value 3.0 in A 

B=2.0 Store the value 2.0 in B 

C=A+B Add the values in A and B and store in 

C(3.+2.=5.) 
C=C-H Add 1. to the value in C(5.+1.=6.) 



EXPRESSIONS 

An expression in FORTRAN is a sequence of constants, 
variables, array elements, and operation symbols that indi- 
cates a quantity or a series of calculations. It must be 
formed according to the rules for constructing expressions. 
It can include parentheses and can also include functions 
(which will be discussed later). It appears on the right- 
hand side of arithmetic assignment statements and in cer- 
tain types of control and I/O statements. 



Rules for Constructing Expressions 

Because constants, variables, and array elements can be 
integer or real quantities, expressions can contain integer 
or real quantities; that is, two types can appear in the same 
expression. 

In the following discussion, no mention is made of the rules 
for using integer and real quantities in functions. These 
rules are stated when functions are described and are con- 
sidered as addenda to the following rules. 

1. The simplest expression consists of a single constant, 
variable or array element. If the quantity is an inte- 
ger type, the expression is said to be in the integer 
mode. If the quantity is a real type, the expression 
is said to be in the real mode. 

Examples: 



Expression 


Type of 


Mode of 




Quantity 


Expression 


3 


Integer constant 


Integer 


3.0 


Real constant 


Real 


1 


Integer variable 


Integer 


A 


Real variable 


Real 


KJ) 


Integer array 






element 


liileger 


A(J) 


Real array 






element 


Real 



In the last example, note that the subscript, i)vif;i;ii 
must be an integer quantity, does not affect the rriode 
of the expression. The mode of the expressio'i is 
determined solely by the type of the quantiiv ^tseit. 
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Real exponentiation of a quantity affects the mode 
of tlie expression; ttius: 



l**2.3 


Real 


l»»J 


Integer 


A»»l 


Real 


A**B 


Real 



Quantities can be preceded by plus or minus signs 
(+ or -), or can be connected by any of the operation 
symbols (+, -, », /, ♦*) to form expressions, provided: 
a. No two operation symbols appear consecutively. 
Quantities connected need not all be tie same 
mode but are converted to the higher mode (in the 
order INTEGER»2, INTEGER«4, REAL*4, 
REAL<8) before the expression is evaluated. For 
example, in A+l, if A is real and I is integer, I is 
converted to real before the addition. Figure 2 
shows the type and length of the result of arithme- 
tic operations. 



^^^■^v^^ Second 

^^\^^ Quantity 
First ^^^.^^ 
Quantity ^^-^^^^ 


INTEGER*2 


INTEGER»4 


REAL«4 


REAL*8 


IMTEGER*2 


INTEGER*2 


INTEGER*4 


REALM 


REAL. 8 


INTEGER»4 


INTEGER*4 


INTEGER»4 


REAL*4 


REAL. 8 


REAL*4 


REAL»4 


REAL. 4 


REAL*4 


REAL. 8 


REAL»8 


REAL*8 


REAL*8 


REAL*8 


REAL.8 



Figure 2. Determining the Type and Length of the Result of Arithmetic Operations that use Quantities of 



Different Mode 

b. No operation symbols are assumed; that is, no two 
quantities appear consecutively. 

Examples: 

Valid 
Expressions 

-A+B 
B+C-J 
I /J 
K.L 



Invalid 

Expressions Reason 

A+ -B Must be written as A+(-B). 

3J Must be written as 3. J If multi- 

plication is intende(J. 
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The order of operations (hierarchy) must be con- 
sidered when writing FORTRAN statements. The 
hierarchy of operations (from highest to lowest) is as 
follows: 

1. Evaluation of functions 

2. Exponentiation (**) 

3. Multiplication (♦) and Divisicn (/) 

4. Addition ( + ) and Subtraction (-) 
Because of this hierarchy, the expression 

A+B*C/D+E**F-G*H 



Mode of an Arithmetic Statement 

Expressions must be integer or real; however, the variable 
on the left-hand side of the equal sign in an arithmetic 
statement need not be of the same mode as the expression 
on the right-hand side, 

if the variable on the left is an integer quantity and the 
expression on the right is real, the expression is first evalu- 
ated as a real quantity, the portion following the decimal 
point is dropped, and the remainder is converted to an 
integer quantity. Thus, if the result is +3.872, the integer 
stored is +3, not +4. If the variable on the left is real and 
the expression on the right is integer, the latter is evaluated 
as an integer expression, and the result is converted to real. 



will be taken to mean 



A+^+eF-(G»H) 



Hierarchy determines which of two consecutive operations 
is performed first. If the hierarchy of the first operation is 
higher than or equal to the hierarchy of the second opera- 
tion, the first operation is performed. If it is not, the 
hierarchy of the second operation is compared to the 
hierarchy of the third, etc. Once an operation is executed, 
the next comparison starts with the last operation that was 
skipped. 



Examples: 




Arithmetic 


Result of 


Statement 


Calculation 


A=3,/2 


1 


A=3./2 


1.5 


1=3/2 


1 


l=3.,/2. 


1.5 


l=3./2 


1.5 



Contents of Variable 

A is assigned the vahje 1.0 
A is assigneri the value 1.5 
I is assigned the value 1 
I is assigned the value 1 
I is assigned the value 1 



In the following examples, the operations are numbered in 
the order in which they will be performed: 

X = A-i-B»C/D-tE**F-G*H 
3 12 5 4 7 6 

When evaluating consecutive exponentiation operations, the 
order is from right to left: 

X = A**B**C + D 
2 1 3 

Parentheses can be used in arithmetic expressions, as in 
algebra, to specify the order in which opijrations are to 
be performed. Where parentheses are used, the expression 
within the innermost set of parentheses is evaluated first. 
For example: 

X=((A + B)*C/D-fE)**F-G*H 
1 2 3 4 5 7 6 



Arithmetic Assignrneiit Statesnents uv.o rx; 



Chapter 4. Control Statements 



Normally, FORTRAN statements are executed sequentially. 
That is, after one statement is executed, the statement 
immediately following it is executed. Hov/ever, it is often 
undesirable to proceed with each statemert in this manner. 
This chapter describes the statements used to alter sequen- 
tial execution. 



COMPUTED GO TO STATEMENT 

The general form of the computed GO TO statement is: 

GO TO (n, ,n2 , . . . ,n„), i 
where 



UNCONDITIONAL GO TO STATEMENT 

The general form of the unconditional GO TO statement is: 

GOTOn 
where n is a statement number. 



n , ,n2 , . . . ,nn are statement numbers 

i is an integer variable having a value of 1 to „. 

This statement also indicates which statement is executed 
next. However, it also gives you the ability to execute 
different statements during various stages in the program. 



This statement is used to interrupt sequential execution; it 
indicates the statement that is to be executed next. 



Uses: The GO TO statement transfers cortrol to the 
statement numbered n. 



Uses: This statement transfers control to the statement 
numbered n, ,n2 , . . . n^, depending on whether the current 

value of i is 1,2 -,, respectively. If the value of i is less 

than 1 or greater than the number of statement numbers in 
the list, the next sequential statement is executed. 



Considerations/Restrictions: The statement following the 
GO TO statement must have a statement number in order 
to be executed. 

Examples: 

GOTO 16 
GOTO 137 

A coding example is shown below: 



12 

7 



A=3. 
B=4. 
GO TO 7 
B=2.«A 
A=2.*B 



Considerations/Restrictions: 

1. i must be given a value before the computed GO TO 
statement is executed. 

2. No more than 60 statement numbers can be specified 
in a computed GO TO statement. 



Examples: 

GO TO(5,7,8,2,4),J If J is 3, transfer control to 

statement 8. 

GO TO(4,4,4,7,8,9),MAX This example iiiustrates that 
several values of i can cause a 
transfer of control to the same 
statement. In this case, when 
MAX has the value 1, 2, or 3, 
control transfers to statement 
4. 



Statement 12 is not executed. After the (50 TO statement 
is executed, statement 7 is evaluated and A is assigned the 
value 8.0. 



Control Statements 19 



Further use of the computed GO TO statement is illustrated 
below: 



A=3. 

B=4. 

C=5. 

K=0 

K=K+1 

GO TO(10,20,30),K 



RELATIONAL SF STATEMENT 

The general form of the relational !F statement is: 

IF (a)s 
where 

a is a relational expression 

s is the associated statement— any executable statement 
except a DO statement or another relational IF state- 
ment. 



30 



20 



10 



F=A-B 
GO TO 1 2 
E=A-C 
GO TO 1 
D=B-C 
GOTO 1 



12 CONTINUE 

As a study of this example shows, D, E and F are computed, 
in that order, and control proceeds to statement 12. Of 
course, the example Itself is highly simplified; if these were 
the only required calculations in this series, the programmer 
would just compute D, E, and F sequentially, in any desired 
order and without using the Computed GC TO statement. 



A relational expression is formed by combining two arith- 
metic expressions with one of the six relational operators: 

.GT. Greater Than 

.LT. Less Than 

.EQ. Equal to 

.NE. Not Equal to 

.GE. Greater than or Equal to 

.LE. Less than or Equalto 

Periods must precede and follow the relational operators, 
as shown. 



Uses: The relational IF statement permits the programmer 
to execute or skip an associated statement depending on 
whether the relational expression is true or false. 



Considerations/Restrictions: The associated statement can 
not be a DO statement or another relational IF statement. 



Examples: 

IF(A.GT.1.0)GOTO50 
IF(A-B.LT.A4-C) A=B 

The associated statement is executed if the relational 
expression is true. Otherwise, the statement following the 
IF statement is executed next. In the second example, if 
the relational expression is true, A is set equal to B and then 
the statement following the IF statement is executed. 
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Suppose a series of records, each containing a variable code 
nunnber, I, is being read and processed. Certain of the 
records, appearing at random but with special code numbers 
greater than 99, are to be processed differently. The 
FORTRAN statements to accomplish this might be as 
follows: 



IF(I.GT.99)GOTO20 



Control transfers to statement number n, , nj , or nj 
depending on whether the value of a is less than, equal to, 
or greater than zero, respectively. Note that in the first 
example, the same statement, numbered 10, is. to be 
executed if a is less than or equal to 0. 

As another example, suppose a value. A, is being computed. 
Whenever this value is positive, you wish to proceed with 
the program. Whenever the value of A is negative, an 
alternative routine starting at statement 12 is lo be followed; 
and if A is zero, an error routine at statement 72 is to be 
followed. This may be coded as; 



20 A=B+C 



A=(B+C)/(D*»E)-F 
IF(A)12,72,10 



ARITHMETIC IF STATEMENT 

The general form of the arithmetic IF statement is: 

IF (a)ni ,02 ,n^ 
where 

a represents an expression. 

n represents a statement number. 

The expression, a, must be enclosed in parentheses; the 
statement numbers must be separated from one another by 
commas. The same statement number can be specified more 
than once. 



Uses: This statement transfers control to the statement 
numbered ni .nj, or nj, depending upon whether the value 
of the expression, a, is negative, zero, or positive, respec- 
tively. 



Considerations/Restrictions: The statement following the 
arithmetic IF statement must have a statement number in 
order to be executed. 



Examples: 

IF(A-B)10,10,7 
iF(A(l)/D)1,2,3 



10 



12 



72 • 

DO STATEMENT 

The general form of the DO statement is: 

DO n i=mi ,m2 ,m3 
where 

n (end of range) is a statement number identifying the 
last statement to be executed in the range of the DO 
statement. 

i (the DO variable) is a non-subscripted integer variable 

mi (the initial value) is an unsigned integer constant 
greater than or a non-subscripted integer variable. 
The value of mj should not exceed the value of m^ , 

m2(the test value) is an unsigned integer coiistant 
greater than or a non-subscripted integer variable. 

m3(the increment) is an unsigned integer constant 
greater than or a non-subscripted integer variable. 
m3 is optional and if omitted is as.sumed to be 1, if 
m3 is omitted, the preceding comma must also be 
omitted. 
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Uses: The DO statement is used to control multiple 
execution of the statements that physically follow the DO 
statement, up to and including the statement numbered n. 
These statements are called the range of the DO. For the 
first execution of the statements within the DO range, the 
variable, i, is set to the initial value, m, . Ecich time state- 
ment n (the end of the range) is executed, the value of i is 
increased by the increment value, m3, and checked against 
the test value, m2 . If i is less than or equal to mj , the 
statements within the DO range are executed again. If the 
value of ' ib greater than the value mj , the statement 
immediately following statement number n is executed 
and i becomes undefined. 



DO 



DO 



-3 




Considerations/Restrictions: 

1 . The statements within the DO range are always 
executed at least once. 

2. A maximum of 25 nested DOs is permitted. A nested 
DO cannot extend beyond the range of the containing 
DO statement. 

For example, the following is a valid nest of DOs: 



F 



DO outer DO 
DO inner DO number 1 
-DO inner DO number 2 



The following is an invalid nest of DOs. 
-DO 
— DO 



Transfer of control to the end of the range of a nest 
of DOs is permitted only from the innermost DO. A 
transfer from any other DO in the nest causes the 
innermost DO to begin execution. 

Transfer of control from inside the range of a DO to a 
statement outside its range (by means of a GO TO or 
an IF statement) is permitted at any time. However, 
the reverse is not allowed except as specified in item 
7 in the following configuration. A transfer of con- 
trol is not permitted into the range of any DO from 
outside its range. Thus, in the following configuration 
1, 2 and 3 are permitted transfers of control, but 4, 5 
and 6 are not. 



7. 



After a normal exit from a DO (when the DO becomes 
satisfied and control passes to the next statement 
after the range), the value of the DO variable is not 
defined, and the DO variable cannot be used again 
until it is defined. If exit occurs by a transfer of 
control out of the range, the current value of the DO 
variable is preserved for subsequent use. 

No statement is permitted in the range of the DO that 
changes the value of any of the variable parameters 
(i, mi , mj , or m3 ). 

The last statement in the range of a DO must be an 
executable statement. It cannot be a transfer of 
control, such as a GO TO of any type, an arithmetic 
IF, another DO, PAUSE, STOP, or RETURN. A 
relational IF statement is valid only if the associated 
statement is not a transfer of control (PAUSE and 
STOP are not considered transfers of control when 
associated with a relational IF). 

The extended range of a DO is defined as those state- 
ments that are executed between the transfer out of 
the innermost DO of a set of completely nested DOs, 
and the transfer back into the range of this innermost 
DO. In a set of completely nested DOs, the first DO 
is not in the range of any other DO, and each succeed- 
ing DO is in the range of every DO that precedes it. 
The following restrictions apply: 

a. Transfer into the range of a DO is permitted only 
if such a transfer is from the extended range of 
the DO. 

b. The extended range of a DO statement must not 
contain another DO statement that has an extended 
range if the second DO is within the sar^ne program 
unit as the first. 

c. The variable parameters (i, mj , m2 , m3 ) cannot be 
changed in the extended range of the DO. 
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Extended 
Range 



8. The (Til , m2, or 1713 values, if constants, cannot 
exceed 2^ ' -2. 



This causes the following computations: 

M(1)=N(1)-1«1 
M(3)=N(3)-2.3 
M(5)=N(5)-3»5 
M(7}=N(7)-4*7 
IVI(9)=N(9)-5»9 



CONTINUE STATEMENT 

The general form of a CONTINUE statement is: 
CONTINUE 



Uses: The CONTINUE statement is used as a dummy 
statement that can be placed anywhere in the source pro- 
gram without affecting the sequence of execution. The 
primary use of the CONTINUE statement is as the last 
statement in the range of a DO statement, where you 
cannot use a transfer of control statement. 



Example 1: 



Considerations/ Restrictions: A CONTINUE statement, 
without a statement number, is ignored. 



15 DO25J=1,1000 

25 INV(J)=INV(J)-IOUT(J) 

35 



Example: As an example of a program that requires a 
CONTINUE statement, consider the following: 



Statement 15 is a command to execute the following state- 
ments up to and including statement 25. The first time, J 
is 1 ; thereafter J is incrased by 1 for each execution of the 
loop until the loop is executed with J eciual to 1000. After 
the loop is executed with J equal to 1000, the statement 
following statement 25 is executed. 



Example 2: 



K=0 

L=10 

D0 5 J0B=1 

K=K+1 

M(JOB)=N(JOB 



L, 2 



10 DO 12 I--1, 100 

IF (ARG.EQ.VALUEd 
12 CONTINUE 



GO TO 20 



This program scans the 100-element VALUE array until it 
finds an entry that equals the value of the variable ARC, 
whereupon it transfers control to statement 20 with the 
value of i available for use. If no entry in the array equals 
the value of ARC, a normal exit to the statement following 
the CONTINUE occurs. 



-K»JOB 
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PAUSE STATEMENT 

The general form of the PAUSE statement i;: 

PAUSE 
or 

PAUSE n 

where n is an unsigned integer constant not greater than 
99999. 



For an explanation of how to respond to a halt, see the 
appropriate Halt Guide, listed in the Preface under Related 
Publications. 



Considerations/Restrictions: 

1 . The constant, n, cannot exceed 99999. 

2. If n is not specified, zeros are displayed or printed. 



Uses: The PAUSE statement halts program execution and 
displays a halt code-166 on the Model 10, Model 12, and 
Model 15; 4 on the Model 6. The rightmost two digits of 
the value n are displayed as a subhalt. If n is not specified, 
zeros are displayed. 

The word PAUSE and the value n are printeif as follows: 

Model 6 Printed unless // NOPRINTE =i has been 
specified. 

Model 10 Printed on the FORTRAN eror logging 

device. See PRINT and NOPRINTER Device 
Option Statements in Chapter 13 for more 
information. 

Model 12 Primed on the line printer assigned as the 
system log device if that primer has not 
been allocated to the program prior to the 
PAUSE n execution. If // LCG CONSOLE 
is specified, the PAUSE n is printed on the 
console only. 

Model 15 Printed on the primer that is assigned as the 
system log device if that printer is not allo- 
cated to the program prior to PAUSE n 
execution. (PAUSE n is always displayed 
on the console.) 

Note: The format of the Model 6 display is (different from 
that on the Model 10, Model 12, and Model 15. Use the 
algorithm and tables in Figure 3 to convert one format to 
the other. 

When execution is halted by the PAUSE statement, the 
following responses are permitted: 

Continue execution of the program with the next 
FORTRAN statement 

2 Controlled cancel 

3 Immediate cancel 



Examples: 

PAUSE 
PAUSE 50 
PAUSE 00002 



STOP STATEMENT 

The general form of the STOP statement is: 

STOP 
or 

STOPn 

where n is an unsigned integer constant not greater than 
99999. 

Uses: The STOP statement terminates execution of an 
object program. If n is specified, the STOP statemient also 
displays a halt code-b6 on the Model 10, Model 12, and 
Model 15; 4 on the Model 6. The two rightmost digits of 
the STOP value, n, are displayed as a subhalt. If n is not 
specified, normal EOJ is reached. 

The word STOP and the value n are printed as follows: 

Model 6 Printed unless // NOPRINTER is specified. 

Models 10 Printed on the FORTRAN error logging 
and 12 device. See PRINT and NOPRINTER Device 

Option Statements in Chapter 13 for more 
information. If // LOG CONSOLE is 
specified, the STOP n is printed on the 
console. 

Model 15 Printed on the FORTRAN error logging 

device. See PRINT and NOPRINTER Device 
Option Statements in Chapter 13 for more 
information. 
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Note: The format of the Model 6 display is different from 
that on the IVlodel 10, Model 12, and Model 15. Use the 
algorithm and tables in Figure 3 to convsirt one format to 
the other. 

The only responses to a halt caused by t!ie STOP statement 
are: 

2 Controlled cancel 

3 Immediate cancel 

For an explanation of how to respond to a halt, see the 
appropriate Halt Guide, listed in the Preface under Related 
Publications. 



Considerations/Restrictions: 



For example, to convert the U2 halt; 

U displacement = 7 
2 displacement = 4 

7 X 22 = 1 54 

1 54 + 4 = 1 58 

158 (dec) =9E (hex) 

9E (hex) =0000 1001 1110 
A BCD1 2345 



Model 6 halt 



B 1 234 



Following are exceptions to the conversion algorithm: 
Disk System Halt Model 6 Halt 



1 . Execution of an object program halted by a STOP 
statement cannot be resumed. 

2. The constant, n, cannot exceed 99999. 



Examples: 

STOP 
STOP 25 



EJ 


ABCD12345 


HE 


BCD12345 


5Y 


A CD12 5 


80 


3 5 


m 


12 45 


OC 


AB D12 45 


7E 


GDI 3 


OA 


AB D 2345 


'Y 


GDI 23 



PAUSE and STOP Algorithm 



Any Disk System halt that ends with {-) except for ( — ) 
cannot be converted. If Mode! 6 receives a disk system halt 
it cannot convert. Model 6 issues halt ABG 1 3. 



Subhalt, STOP, and PAUSE values are converted for display 
by the Model 6 according to the following algorithm: 

1 . Determine the displacement in the table (see Charac- 
ter to Displacement, Figure 3) of the first character. 

2. Multiply the displacement by 22. 

3. Determine the displacement of the second character 
and add it to the result of step 2. 

4. Convert the result of step 3 from decimal to hexa- 
decimal (see Decimal to Hex, Figure 3). 

5. Write the 9-bit binary equivalent of the hex value 
obtained in step 4. The bits on indicate the display 
lights on. 



Model 6 halts derived from disk system halts can be con- 
verted back to disk system halts by reversing the conversion 
algorithm. For example; 

Model 6 halt B1234 
Displayed B 1 234 

0000 1001 1110 = 9E (hex) 

9E (hex) = 1 58 (decimal) (see Decimal to Hex, Figure 3). 
158/22= 7+4 

7 - displacement fo! U (see Character to Displacement, 
Figure 3). 

4 = displacement for 2 (see Character to Displacement, 
Figure 3). 

Disk system halt = U2 
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Character to Displacement 



Character 




8 


6 


E 


2 





C 


U 


L 


J 


9 


5 


3 


Y 


A 


P 


F 


H 


4 


• 


7 


1 


- 


Displacement 





1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 



Decimal to Hex 

Low 
Order 



High 








1 


2 


3 


4 


5 


6 


7 


8 


9 


A 


B 


C 


D 


E 


F 


Order 


0000 


0001 


0002 


0003 


0004 


0(305 


0006 


0007 


0008 


0009 


0010 


0011 


0012 


0013 


0014 


0015 




1 


0016 


0017 


0018 


0019 


0020 


0321 


0022 


0023 


0024 


0025 


0026 


0027 


0028 


0029 


0030 


0031 




2 


0032 


0033 


0034 


0035 


0036 


0(337 


0038 


0039 


0040 


0041 


0042 


0043 


0044 


0045 


0046 


0047 




3 


0048 


0049 


0050 


0051 


0052 


0353 


0054 


0055 


0056 


0057 


0058 


0059 


00i60 


0061 


0062 


0063 




4 


0064 


0065 


0066 


0067 


0068 


0369 


0070 


0071 


0072 


0073 


0074 


0075 


0076 


0077 


0078 


0079 




5 


0080 


0081 


0082 


0083 


0084 


0385 


0086 


0087 


0088 


0089 


0090 


0091 


0092 


0093 


0094 


0095 




6 


0096 


0097 


0098 


0099 


0100 


0101 


0102 


0103 


0104 


0105 


0106 


0107 


0108 


0109 


0110 


0111 




7 


0112 


0113 


0114 


0115 


0116 


0117 


0118 


0119 


0120 


0121 


0122 


0123 


0124 


0125 


0126 


0127 




8 


0128 


0129 


0130 


0131 


0132 


0133 


0134 


0135 


0136 


0137 


0138 


0139 


0140 


0141 


0142 


0143 




9 


0144 


0145 


0146 


0147 


0148 


0149 


0150 


0151 


0152 


0153 


0154 


0155 


0156 


0157 


0158 


0159 




A 


0160 


0161 


0162 


0163 


0164 


0165 


0166 


0167 


0168 


0169 


0170 


0171 


0172 


0173 


0174 


0175 




B 


0176 


0177 


0178 


0179 


0180 


0181 


0182 


0183 


0184 


0185 


0186 


0187 


0188 


0189 


0190 


0191 




C 


0192 


0193 


0194 


0195 


0196 


0197 


0198 


0199 


0200 


0201 


0202 


0203 


0204 


0205 


0206 


0207 




D 


0208 


0209 


0210 


0211 


0212 


0213 


0214 


0215 


0216 


0217 


0218 


0219 


0220 


0221 


0222 


0223 




E 


0224 


0225 


0226 


0227 


0228 


0229 


0230 


0231 


0232 


0233 


0234 


0235 


0236 


0237 


0238 


0239 




F 


0240 


0241 


0242 


0243 


0244 


0245 


0246 


0247 


0248 


0249 


0250 


0251 


0252 


0253 


0254 


0255 




10 


0256 


0257 


0258 


0259 


0260 


0261 


0262 


0263 


0264 


0265 


0266 


0267 


0268 


0269 


0270 


0271 




11 


0272 


0273 


0274 


0275 


0276 


0277 


0278 


0279 


0280 


0281 


0282 


0283 


0284 


0285 


0286 


0287 




12 


0288 


0289 


0290 


0291 


0292 


0293 


0294 


0295 


0296 


0297 


0298 


0299 


0300 


0301 


0302 


0303 




13 


0304 


0305 


0306 


0307 


0308 


0309 


0310 


0311 


0312 


0313 


0314 


0315 


0316 


0317 


0318 


0319 




14 


0320 


0321 


0322 


0323 


0324 


0325 


0326 


0327 


0328 


0329 


0330 


0331 


0332 


0333 


0334 


0335 




15 


0336 


0337 


0338 


0339 


0340 


0341 


0342 


0343 


0344 


0345 


0346 


0347 


0348 


0349 


0350 


0351 




16 


0352 


0353 


0354 


0355 


0356 


0357 


0358 


0359 


0360 


0361 


0362 


0363 


0364 


0365 


0366 


0367 




17 


0368 


0369 


0370 


0371 


0372 


0373 


0374 


0375 


0376 


0377 


0378 


0379 


0380 


0381 


0382 


0383 




18 


0384 


0385 


0386 


0387 


0388 


0389 


0390 


0391 


0392 


0393 


0394 


0395 


0396 


0397 


0398 


0399 




19 


0400 


0401 


0402 


0403 


0404 


0405 


0406 


0407 


0408 


0409 


0410 


0411 


0412 


0413 


0414 


0415 




1A 


0416 


0417 


0418 


0419 


0420 


0421 


0422 


0423 


0424 


0425 


0426 


042'7 


0428 


0429 


0430 


0431 




18 


0432 


0433 


0434 


0435 


0436 


0437 


0438 


0439 


0440 


0441 


0442 


0443 


0444 


0445 


0446 


0447 




1C 


0448 


0449 


0450 


0451 


0452 


0453 


0454 


0455 


0456 


0457 


0458 


0459 


0460 


0461 


0462 


0463 




ID 


0464 


0465 


0466 


0467 


0468 


0469 


0470 


0471 


0472 


0473 


0474 


0475 


0476 


0477 


0478 


0479 




IE 


0480 


0481 


0482 


0483 


0484 


0485 


0486 


0487 


0488 


0489 


0490 


0491 


0492 


0493 


0494 


0495 




IF 


0496 


0497 


0498 


0499 


0500 


05O1 


0502 


0503 


0504 


0505 


0506 


0507 


0508 


0509 


0510 


0511 



Figure 3. Halt Conversion Tables 
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END STATEMENT 

The general form of the END statement is: 
END 



Uses: The END statement is a nonexecutable statement that 
defines the end of a main program or subprogram. Physi- 
cally, it must be the last statement of each program unit. 
If any FORTRAN statements follow an END statement, 
they are ignored by the compiler and not printed. The 
END statement does not terminate program execution. 



Considera tions/Restric tions: 

1 . The END statement cannot have a statement number. 

2. The END statement cannot have a zero in column 6. 

3. The END statement cannot have a continuation. 

Examples: 

PROGRAM FIRST SUBROUTINE SECOND 



CALL SECOND RETURN 

END 



STOP 25 
END 
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Chapter 5. Format of Input/Output 



In order for data to be transmitted from m external storage 
medium such as a punched card, tape, or disk to the com- 
puter, or from the computer to an external medium, it is 
necessary that the computer know the form in which the 
data exists. The FORMAT statement describes the form 
of the data. 

The FORMAT statement uses format codes to specify the 
type of conversion to be performed between the external 
and the internal representation of each quantity specified 
in a READ or WRITE statement I/O list, 

FORMAT statements are associated by their statement 
numbers with specific READ or WRITE statements. Suc- 
cessive items in the I/O list are transmitted according to 
successive specifications in the FORMAT statement. FOR- 
MAT statements are not executed and can appear anywhere 
in the same program unit as their associated I/O statements, 
subject to the rules governing placement of PROGRAM, 
IMPLICIT, FUNCTION, SUBROUTINE, and END state- 
ments. 



FORMAT STATEMENT 

The general form of a FORMAT statement is: 

xxxxx FORMAT(c) s, CjSa . . . Cn) 
where 

xxxxx is a statement number (1 through 5 digits). 

c is a format code (described following). 

s is a separator, which may be either a comma or 

any number of slashes. Slashes are used to indi- 
cate the beginning of a new record. Any number 
of slashes may precede the first or follow the 
last format code. 



Format 
Code 

alw 

aDw.d 

aEw.d 

aFw.d 

nPc 



aAw 
wHstri 
'literal 
wX 

Tr 



where 



ng 



Purpose 

Describes integer data fields. 

Describes double precision data fields. 

Describes real data fields. 

Describes real data fields. 

Describes a scale factor; if present, this code 

is specified as the first part of a 0, E, or F 

field descriptor. 

Describes character data fields. 

Describes literal data. 

Describes literal data. 

Indicates that a field is to be skipped on input 

or filled with blanks on output. 

Indicates the position in a FORTRAN record 

where transfer of data is to begin. 



is optional and is a repeat count, an unsigned 
integer constant that specifies the number of 
times the code is to be repeated. If a is 
omitted, the code is used once. 

is an unsigned nonzero integer constant that 
specifies the number of characters in the field 
(field width). 

is an unsigned integer constant specifying 
the number of decimal places to the right 
of the decimal point (the fractional portion). 
The decimal point between w and d portions 
of the specification is required, 

is a negative or unsigned integer constant 
which is the scale factor; if the constant is 
unsigned, it is assumed to be positive. 

is format code D, E, or F. 



string is a set of characters in a field. 

r is an unsigned integer constant designating 

a character position in a record. 
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Uses: The FORMAT statement is used in conjunction with 
the I/O lists in the READ and WRITE statements to specify 
the structure of FORTRAN records and the form of the 
data fields within the records. FORMAT statements are 
associated by their statement numbers with specific READ 
or WR ITE statements. 



VARIOUS FORMS OF A FORMAT STATEMENT 

All of the format codes in a FORMAT statement are en- 
closed in a pair of parentheses. Within these parentheses, 
the format codes are delimited by a separator— a comma or 
a slash. The comma delimits one format code from another; 
the slash is used to indicate the beginning of a new record. 



Considerations/Restrictions: 

1 . A FORMAT statement is not executeid— its function 
is to supply information to the object program. The 
FORMAT statement can be placed anywhere in the 
source program. 

2. When defining a FORTRAN record with a FORMAT 
statement, it is necessary to consider the maximum 
size record allowed on the input/output device. 

3. The specifications in a FORMAT statement must 
correspond in mode to the items in the I/O list— inte- 
ger quantities require integer format c;odes and real 
quantities require real format codes. 

4. The field width, w, of a format code cannot exceed 
255. 

5. The repeat count, a, whether of the form aDw.d or 
a(Dw.d), cannot exceed 255. 

6. The field width, w, can be specified greater than re- 
quired in order to provide spacing. F'or example, to 
write out an integer variable with the I format code, 
a specification of 110 reserves five leading blanks if 
the number does not exceed five digits, including the 
sign. 



Examples: 

05 FORMAT (I5,F8.4/2GX,I5) 

10 FORMAT (' THE ANSWER IS', 110) 

33 FORMAT (E6.2,2(I3,2F2.1 )) 



For example, the statement 

25 FORMAT (I3,F6.2/D10.3,F6.2) 

describes the format of two records. The first record is 
transmitted according to the format codes 13 and F6.2; the 
second record is transmitted according to the format codes 
DIO.Sand F6.2. 

Consecutive slashes can be used to produce blank output 
records or to skip input records. If there are n consecutive 
slashes at the beginning or end of a FORMAT statement, n 
input records are skipped or n blank records are inserted 
between output records. If n consecutive slashes appear 
anywhere else in a FORMAT statement, the number of 
records skipped or blank records inserted is n-1 . 

For example, the statement 

25 FORMAT (//I5//I5//) 

describes seven record formats. If this FORMAT statement 
is used to transmit records to the printer, it produces two 
blank lines, one line of data, one blank line, another line of 
data, and two blank lines. 

The group format specification is used to repeat a set of 
format codes and to control the order in which the format 
codes are used. The group repeat count, a, is the same as 
the repeat count, a, that can be placed in front of other 
format codes. For example, the following statements are 
equivalent: 

25 FORMAT (2(E10.5,D12.6) ,14) 

25 FORMAT (E10.5,D12.6,E10.5,D12.6,I4) 

An additional level of parentheses is not permitted. For 
example, the following statement is invalid: 

25 FORMAT (2(3(16,18))) 

Additional parentheses are valid, however, as long as they 
are not in the same group. For example: 

25 FORMAT (2(I2),2(I4)) 



30 



Each time a READ or WRITE statement is executed, 
successive items in the I/O list are transmitted according to 
successive format codes in the FORMAT statement. This 
continues until all the items in the list are transmitted. If 
there are more items in the list than there are format codes, 
control transfers to the last preceding left parenthesis of 
the FORMAT statement. This is either thie left parenthesis 
at the beginning of the FORMAT statement or, if grouping 
is used, the left parenthesis of the last group in the FOR- 
MAT statement. For example, if the I/O list contains the 
variables A, B, C, D, and E and the FORMAT statement 
used is 

25 FORMAT (F6.2,D10.3,F12.2) 

the values transmitted for A, B, and C would use format 
codes F6.2, D10.3, and F12.2, respective y. Because the 
list is not exhausted, control returns to the preceding left 
parenthesis and the values transmitted fot D and E would 
use format codes F6.2 and D10.3, respectively. If the 
FOF^MAT statement were coded 



Numbers printed by the D and E format codes are printed 
as a decimal fraction to a power of 10. These numbers are 
normalized; that is, their first significant digit is to the right 
of the decimal point. For example: 

232.3 is printed as 0.2323E+03 

.003 is printed as 0.30E-02 

17.4 is printed as 0.1 74E+02 

Numbers printed by the I format code are printed as integers. 
Typical output might be: 

12 

-17 

2342 



I Format Code (alw) 

The I format code is used to read integer data or to print a 
number that exists in the computer as an integer quantity. 



25 FORMAT (F6.2,D10.3,2(F12.2)) 

the values transmitted for A, B, C, D, and E would use for- 
mat codes F6.2, D10.3, F12.2, F12.2,and F12.2, 
respectively. 

If there are fewer items in the I/O list th;in there are format 
codes, the remaining format codes are ignored. 



On output, w print positions are reserved for the number. 
It is printed in a w-space field right-justified (that is, the 
units position is at the extreme right). If the number con- 
verted is greater than w spaces, asterisks are printed instead 
of the number. If the number has less than w digits, the 
leftmost spaces are filled with blanks. If the quantity is 
negative, the space preceding the leftmost digit contains a 
minus sign, for which a space must be reserved. 



FORMAT CODES FOR NUMERIC DATA 

Four types of format codes for numeric data are: 

Internal Format External 
Code 



Real 
Real 

Real 

Integer 



Real (without exponent) 

Real (with exponent; single 

precision) 

Real (with exponent; double 

precision) 

Integer 



Numbers printed by the F format code are printed in a 
decimal notation without an exponent. Typical output 
might be: 



12.3 


-0.726 


102 


-17.2 


1.318 


-968 


289.1 


0.009 


721 



The following examples show how each of the quantities 
on the left is printed according to the specification 13 (1^ 
is used to indicate blanks): 



Internal 




Value 


Prim 


721 


721 


-721 


* * * 


-12 


-12 


9 


hm 


8114 


>f- # * 





mo 


-5 


ti-B 



On input, w characters are read from an input device. Blanks 
on either side of a significant digit are treated as zeros. If 
the number is too large to be contained in a 2- or 4-byte 
integer variable, only the rightmost digits are used, and 
computations involving this variable are meaningless. 
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The following examples show the internal values of the 
given quantities if read under the 13 format code: 



The following example shows how each of the quantities 
on the left is printed according to the specification F5.2: 





Internal 


Input 


Value 


2W 


300 


m\t> 





\b3\b 
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F Format Code (aFw.d) 

On input, w is the total field width, includiig the exponent, 
if any, and d is the number of places to the right of the 
decimal point (the fractional portion). If a decimal point 
is present, its position overrides the d specification in the 
format code. Either a D, E, or signed integer exponent is 
acceptable as input with an F format code. Blanks are 
treated as zeros; thus, embedded and trailing blanks affect 
the value of the number. 

For example, the following item is interpre ;ed as having 
the value 1000: 



Field 
Description 

F8.0 



Input 
Record 

mmum 



On output, w must provide sufficient space for an integer 
segment if it is other than zero, a fractional segment con- 
taining d digits, a decimal point, and, if the output value 
is negative, a sign. Thus, the value of w should be at least 
1 greater than the value of d, and at least 2 greater if the 
number can be negative. If insufficient positions are pro- 
vided for the integer portion, including decimal point and 
sign (if any), asterisks are written instead of the number. 
If excess positions are provided, the number is preceded by 
blanks. Fractional digits in excess of the number specified 
by d are dropped after rounding. 



Internal Value 

12.125 
-41.5 
-0.25 
7.375 
-1. 

9.03125 
187.625 

0.00390625 
0.0078125 



Printed 
12.13 

***** 

-0.25 
l(i7.38 
-1.00 
m.Q3 

blO.01 



The last two examples demonstrate the effect of rounding. 



D and E Format Codes (aDw.d, aEw.d) 

D and E format codes are used in transmitting real (single 
precision or double precision) data. On input, the number 
optionally has a decimal point and/or a D, E, or signed 
integer constant exponent. All exponents must be preceded 
by a constant— that is, an optional sign followed by at least 
one decimal digit, with or without a decimal point. If the 
decimal point is present, its position overrides the position 
indicated by the d portion of the format specification, and 
the number of positions specified by w must include a 
place for it. Because leading, trailing, and embedded blanks 
are treated as zeros, embedded and trailing blanks affect 
the value of the item. 

The D, E, and signed integer constant exponent specifica- 
tions for input data are interchangeable. For example, 
given a REAL*4 item in an input list, and E format specifi- 
cation, the exponent specification in the data itenn can be 
a D, an E, or a signed integer constant, or have no expon- 
ent. The data item is treated as a REAL*4 constant in any 
case. Similarly, if the list item is REAL*8 and the FOR- 
MAT specification is D, the data item is treated as a double 
precision constant regardless of its exponent specification, 
if any. Note that the type and length of the list item must 
agree with that of the specification. 

For output, unless a scale factor is present (the scale factor 
changes the location of the decimal point in real numbers; 
its use is explained later in this section under the heading 
Scale Factor (nPc), output consists of an optional sign 
(required if the value is negative), a decimal point, the 
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number of significiiiit (tigits specifieil by d, and y D or E 
exponent requiiing lorir positions: the D or E, a t or - 
sign, and a two-digit exponent. The w spi;cihcation must 
provide s[)aces for all of these positions. Thus the value of 
w si'iould always be at least d + 5, or d + (i if the number 
can l)e negative. If additional space is availabk!, a leading 
zero is written befoie the decimal point. If the value of vi/ 
IS not sufficient to print a decimal point tnd a four position 
expoiu'iil, plus a minus sign if the valui! is negative, asterisks 
are printed instead of the number. Fractional (figits in ex 
cess of the numtier specified by d are dioiiped aftei 
rounding. 

Exaniplcs. 

Given the following input record: 

lA6.73124E3^(lKbi^ibibt.23791D-06^(i^i16/123.141591.413962D-01bi1.413962D^1 

the following statements could be used to read this data: 

READ (l,fO)A,B,l,C,D,E 
10 FORMAT (E10.5,D16.10,I7,E7.5,2D12.7) 

Then the data could be printed using essentially the same 
format codes: 

20 FORMAT CI'.EIO. 5/' ',D16.1D/' ',17/' ', 
E7.5,2(/' ',D12.7)) 

The '^' and ' ' specifications are carriage and record control 
specifications that are explained under the heading Printed 
Output. The following shows the printeo results: 

.67312E+04 
0.2379100000D-06 
16712 

****** ^<- * 

.1413962D+00 
.1413962D+02 

In the first data item, the decimal point v^as moved to the 
left and exponent adjusted. For the second data item, a 
leading zero was added for the integer portion, trailing 
zeros were added to the decimal portion, and the number 
is printed with ten digits after the decimal point. For the 
third item, two leading blanks were addeii to the integer 
field and the number is printed right-justified. Asterisks 
were printed instead of the fourth data item because the 
w specification, although sufficient for irput (there was no 
exponent) is insufficient for output (where there is always 
an exponent with the D and E format codes). For the last 
two data items, identical except for their exponents, the 
decimal points were moved to the left and the exponents 
adjusted accordingly. 
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Scale Factor (nPc) 

The P scale factor can be specified as the first part of a D, 
E, or F format code to change the location of the decimal 
point in real numbers. 

Unless there is an exponent in the external input or output 
field, the effect of the scale factor for the F format code is: 

external number = internal number x 10" 

where n is the scale factor. 

On input, the scale factor in the format specification is 
ignored for any data item with an exponent in the external 
field. Otherwise, a positive scale factor decreases the magni- 
tude of the data item and a negative scale factor increases 
its magnitude. For example, if the input data is in the form 
xx.xxxx and is to be used internally in the farm .xxxxxx, 
then the format code used to effect this change is 2PF7.4. 
Or, if the same input is to be used in the form xxxx.xx, 
then the format code used to effect this change is -2PF7.4. 
If the external representation was xx.xxxxExx and the for- 
mat code 2PE10.4, the scale factor would be ignored, and 
the value stored internally as xx.xxxxExx. 

On output, the scale factor can be specified for F, E, or D 
format codes. For F format codes, the effect of the scale 
factor is the opposite of that for input; a positive scale 
factor increases the magnitude of the number and a negative 
scale factor decreases the magnitude. For e)cample, if the 
number has the internal form xx.xxxx and it is to be written 
out in the form xxxx.xx, the format code used to effect 
this change is 2PF7.2. 

For D or E format codes, the exponent is adjusted so that 
the magnitude of the number does not change. For ex- 
ample, if the internal number were printed according to the 
format El 0.3, it would appear as 0.238E+0:i. If it were 
printed according to the format 1PE10.3, it would appear 
as 2.385E-t-02. Note that this results in grea:er precision. 

Once a scale factor is established, it applies to all subse- 
quently interpreted D, E, and F format codes in the FOR- 
MAT statement until another scale factor is established. A 
factor of may be used to discontinue the effect of a pre- 
vious scale factor. If no scale factor is given, is used for 
all F, E, and D format codes. 



The scale factor 2 applies to both the D20.10 and the 
E7.2 specifications. If 5 data items were read using this 
code, it would also apply to the E10.3 code, which would 
be used to interpret the fifth item. To discontinue the 
effect of the code after the D20.10 specification, the state- 
ment should be coded: 

30 FORMAT (E10.3,2PD20.10,0PE7.2,I5) 

To discontinue it after the E7.2 code, if more than four 
data items are to be read using the FORMAT statement, 
the statement should read; 

30 FORMAT (0PE10.3,2PD20.10,E7.2,I5) 

Note that the OPE 10.3 specification is not necessary to dis- 
continue the effect of a scale factor in a previous FORMAT 
statement, or in the previous use of this FORMAT statement. 



FORMAT CODES FOR ALPHAMERIC DATA 

There are three specifications available for input/output of 
alphameric information. The specification wH or a literal 
enclosed in apostrophes is used for alphameric data that is 
not going to be processed by the object program; the 
specification Aw is used for alphameric data that is to be 
processed by the program. 

Information handled with the A specification is given a 
variable or array name and hence can be referred to by this 
name for processing and/or modification. Information 
handled with the H format code is not given a name and 
cannot be referred to or manipulated in any way. 



A Format Code (aAw) 

The specification Aw causes w characters to be read into, 
or written from, a variable or array element. The type of 
the variable or array is immaterial, because no conversion 
takes place. Thus, the A format code can be used for 
numeric fields, but not for numeric fields requiring arith- 
metic. 

The maximum width of w can be 255. 



Example: 

30 FORMAT (E10.3,2PD20.10,E7.2,I5) 
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The maximum number of characters stored in internal 
storage depends on the length of the variable in the I/O list. 
If w is greater than the variable length, say v, then the left- 
most w-v characters in the field of the input card are skip- 
ped and the remaining v characters are read and stored in the 
variable; truncation occurs on the left. I' w is less than v, 
then w characters from the field in the irput card are read 
and the remaining rightmost characters in the variable are 
filled with blanks. 

If v\/ is greater than the length (v) of the \/ariable in the I/O 
list, then the output field contains v characters right-justified 
in the field, preceded by leading blanks. If w is less than 
V, the leftmost w characters from the variable are printed 
and the rest of the data is truncated; truncation occurs on 
the right. 

Example 1: 

Assume that B was specified as REAL*8 that N and M are 
INTEGER »4, and that the following statements are given: 

25 FORMAT (3A7) 

READ (1,25)B,N,I\/I 

When the READ statement is executed, one input card is 
read from the file associated with logical unit number 1 into 
the variables B, N, and M in the format sisecified by FOR- 
MAT statement number 25. The following list shows the 
values stored for the given input cards. 



Input Card 



B 



IM 



M 



ABCDEFG46biATfei1 1234567 ABCDiEFGbi ATbil 4567 
HIJKLMN7654321 3334445 HIJKLMNIzi 4321 4445 

Example 2: 

Assume that A and B are real variables of length 4, that C 
is a real variable of length 8, and that the following state- 
ments are given: 



H Format Code (wHstring) and Literals Enclosed in 
Apostrophes 

The specification wH is followed in the FORMAT statement 
by a string of w alphameric characters. For example, 

24Ht!lTHISbilSl!lALPHAMERICbiDATA 

This specification can also be coded using apostrophes to 
enclose the string of characters: 

'biTHISbilSbSALPHAMERICbiDATA' 

The apostrophe specification method may be more conven- 
ient for specifying long character strings. 

Note that blanks are considered alphameric characters and 
must be included as part of the count, w. 

The effect of wH or literal specification depends on whether 
it is used with input or output. 

On input, w characters, or as many characters as are en- 
closed in apostrophes, are extracted from the input record 
and replace the characters included with the specification. 

On output, the string of characters following the specifica- 
tion or the literal string are written as part of the output 
record unless characters have replaced them as a result of 
an input operation, in which case, the replacement charac- 
ters are written. 

For example, suppose that the following statements are 
executed: 

WRITE (3,2) 
2 FORMAT (20HTIME/QUANTITYb5REPORT) 

These would cause the following output to be printed: 

TIME/QUANTITY REPORT 



26 FORMAT (A6,A5,A6) 
WRITE (3,26)A,B,C 

When the WRITE statement is executed, one line is written 
on the file associated with logical unit number 3 from the 
variables A, B, and C in the format specii'ied by FORMAT 
statement 26. The printed output for values of A, B, and 
C is as follows: 

ABC Primed Line 

A1B2 C3D4 E5F6G7H8 bbJAI B2bC3D4E5F6G7 



On the other hand, assume that a card containing the 
characters t6NOt6tfi238 is read using these statements: 

READ (1,1)1 
1 FORMAT ('YES',15) 

The statement 

WRITE (3,1)1 
would cause the following printed output: 

liiNOI/ibi238 
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SPECIFYING BLANK FIELDS IN A RECORD (X 
FORMAT CODE) 

Blank characters can be provided in an output record, or 
characters of an input record can be skipped, by means of 
the specification wX where w is the number of blanks 
provided or characters skipped. When the specification is 
used with an input record, w characters are skipped. 

For example, if a card has six 10-column fields for integers, 
and you do not want to read the second quantity, then the 
statement 

FORMAT (I10,10X,4I10) 

can be used with the appropriate READ sta.ement. The T 
format code can also be used for this purpose. 



FORMATTING THE RECORD (T FORMAT CODE) 

The FORMAT statement positions data from left to right, 
according to the specifications given within the FORMAT 
statement. Very often, though, it is useful :o start printing 
other than in print position 1, or to print d;ita at specific 
print locations. The T format code can be used for this 
purpose. 

The T format code is specified as 

Tr 



When using the T specification for printed output, the 
carriage control character must still be provided. If the 
specification T1 is used, the first character of the output 
image is used for carriage control. If something other than 
T1 is specified as the first print position, (for example T40), 
then a blank is used as the carriage control character. 

Example 3: 

3 FORMAT (T40,'PLUS',T1,'1 MINUS') 

This statement prints the word minus starting in position 1 , 
with the 1 in the '1 MINUS' specification being used for 
carriage control. The word plus is printed starting in posi- 
tion 39. 

Note that more than one T specification can be used in a 
FORMAT statement, and that the order in which the print 
positions are specified need not be sequential. 

When output is to tape or disk, the first character of the 
record is treated as data. In this case, the T specification 
represents the exact position at which transfer is to begin, 
rather than the position plus 1 . Thus, if FORMAT state- 
ment 3 were used to write a tape or disk record , 1 MINUS 
would be written starting in position 1, and PLUS) would 
be written starting in position 40. 

Example 4: 

4 FORMAT (T41,F7.2,T1,' X=',T61 , 'RESULT') 



where r is an unsigned integer constant specifying the posi- 
tion in the record where data transfer is to begin. On a 
printed line, r indicates the print position plus 1 because 
the first character is used for carriage control. 

A blank is inserted into any character posit on that was not 
previously filled. 

Example 1: 

1 FORMAT (T61, 'CALCULATION') 



This statement prints the following line; 



1234.56 



Print Print 



RESULT 



'rmt 



Position 1 Position 40 Position 60 

The T format code can be used in conjunction with any 
other format code. The positions of all codes following a 
T format code are in effect governed by the T format code 
until another T format code is encountered. 



This statement prints the word calculation in positions 60 
through 70. 

Example 2: 

2 FORMAT (T21,D20.7) 

This statement prints the data item whose jpecification is 
D20.7 starting at position 20. 
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Example 5: 

5 FORMAT (T101,F10.3,I10,' NOTE 1',Tb1,E9.3, 
Ti; ANS ■) 

This statement piints the tollowintj line 

0,354Ei02 



ANS 

t \ 

Pnin Prim 

Position Position 

1 50 



1 1 1 082.986 &3(;463 NOTb 1 

t t I 

Print Print Print 

Position Poiiliim Position 
1 00 113 1 20 



When forniattinc) a line iisiny the T lorn at cod(>, care must 
be taken not to overlap print positions. 

Example 6: 

6 FORMAT (T41,D20.1b,T51,FG.3) 

If tlie preceding statement were used, the F6.3 specification 
would be written over six of the decimal [)laces of the D20.15 
specification. 

The T format code can also be used for n[)ut. 

Example 7 : 

READ (1,7) INPUT 

7 FORMAT (T15, 15) 

These statements cause the first 14 columns of the Input 
record to be ignored, and the next five t:) be ttansmitted 
to the variable INPUT. 

LISTS FOR TRANSMISSION OF DATA 

The list in an Input/output statement specifies what 
quantities to transmit. For example, assume that a card 
is punched as follows: 



25 



10 



102 
5 



101 



Further assume that the following statement af)(«'ars in thr 
source f)rogram: 

READ{1,100) l,J,K,L.,M 
100 FORMAT(5I10) 

The cud is read and the |)io()r,im piocesses the data as 
though the lollowing slatenieiils wc'ie writK.'ii: 

I ?E) 
J 102 
K ^101 
L 10 

Mb 

If control passes back to lln; READ Malenii;nl, I, ,J, K, L, 
and M have new value's de'pendiiuj upon what is punched 
in the' next caid lead. 



Indexing in Input/Output Lists 

DO-type notation can be usi/d in lists for the' transmission 
of data. For exanifile, sup|)(;:,e you want to tiansmit thi; 
live quantities A(1), A(2), A(3), A(4) and A(5). This can 
be accom()llshed by writing: 

10 FORMAT(5F10.0) 

12 READ(1,10)(A(I),I 1,5) 

The above statements cause a record to be read and cause 
the value contained in the first ten [lositions of the record 
to be converted to a real numbei and stored into A(1!. the 
next ten [)osltions into A(2), etc. 

This IS equivalent to writing 

12 READ(1,10)A(1),A(2/,A(3),A(4),A(5) 

In other words, I is given the value 1 and the first quantity 
becomes the value of A(1). i is then increased by 1, and 
the second quantity becomes the value of A(2). This con- 
tinues until the fifth quantity read becomes ihe- value of 
A(5). 

As with DO statements, a third indexing parametei can be 
used to specify the amount by which the index i;, incie 
mented at each iteration. Thus, 

READ(1,50) (A(l), 1 = 1, 10,2) 

causes transmission of values for A(1), A(3), A(5), A(7) 
and A(9). 
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Implied DO Notation in Input/Output Lists 

The general form of the Implied DO notation is: 

(Vi (i). 72 (') Vn ('), i=m, .mj.mj) 

where 

y is an array name. 

i is composed of one through three integer variables, 
sepaiatca by commas, representing a value of a subscript 
in the array, based on the value of m, . 

m, , mj , and m3 are each either an unsigned integer 
constant or an integer variable. If m^ is not stated, it is 
assumed to be 1 . 

The maximum nesting level in implied DOs is 15. 

Note: As with DOs, i is the index, m, is the initial value, 
m2 is the test value, and m^ is the increment. In addition, 
this notation can be nested. 

Example: 

((C(I,J),D(I,J),I = 1,5),J=1,4) 

transmits data in the form 

C(1,1),D(1,1),C(2,1),D(2,1) C(5,1),D(5,1), 

C(1,2),D(1,2) C(5,4),D(5,4) 



Additional Details of Input/Output Lists 

Any number of quantities can appear in a single list. Integer 
and floating point quantities can be transmitted by the 
same statement. However, if formatted I/O is used, each 
quantity must have the correct format as specified in a 
corresponding FORMAT statement. 

For formatted I/O, if there are more quantities to transmit 
than there are in the list, only the number of quantities 
specified in the list are transmitted, and remaining quanti- 
ties are ignored. Thus, if a card contains three quantities 
and a list contains two, the third quantity is not used by 
the program. 

A list for an unformatted READ must not contain more 
quantities than the input record. 

When an array name appears in a list in nonsubscripted 
form, all of the quantities of the array receive data or are 
transmitted. For example, if A is an array with 25 elements, 
the statement 

READ(1,100)A 

causes all of the quantities A(1 ), . . . A(25) to receive data. 

A more complex list is 

A,B(3),(C(I),D(I,K),I = 1,10),((E(I,J),I = 1,10,2), 
F(J,3),J=1,K) 

This list receives or transmits data in the order 

A,B(3),C(1),D(1,K),C(2),D(2,K) C(10),D(10,K), 

E(1,1),E(3,1) E(9,1),F(1,3),E(1,2),E(3,2) 

E(9,2),F(2,3),. .. E(9,K),F(K,3) 

Note that each item in the list is separated by a comma, 
that the range of the implied DO statement is clearly de- 
fined by means of parentheses, and that constants do not 
appear in the list except as indexing parameters or sub- 
scripts. The variable indexing parameter (K) is assumed to 
be previously defined by the program, although in an input 
list it could have been defined by an item in the list itself, 
providing that it appeared before its use as an index. 
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PRINTED OUTPUT 



DATA INPUT TO THE OBJECT PROGRAM 



When formatted records are prepared for a printer, the 
first character of the record is not printed, it is treated as 
a carriage control character. It can be specified in the 
FORMAT statement with either of the two forms of literal 
data: either 'x' or nHx, where x is one of the following; 

X Meaning 

blank Advance one line before pri tting 

Advance two lines before printing 

1 Advance to first line of nexi. page 
+ No advance 

Due to hardware restrictions, the 3284 arinter does not 
support the + carriage control for no advance. A print 
request to the 3284 with a + for carriags control will be 
equivalent to the blank carriage control character. 

The carriage control character can stanc by itself as a for 
mat code, or it can be included as part of a larger literal 
specification. Consider the following statements: 

20 FORMAT ('1THE FOLLOWING IS A LIST OF 
PRIMES') 

or 

20 FORMAT ('r,33HTHE FOLLOWING IS A LIST 

OF PRIMES) 

or 

20 FORMAT (34H1THE FOLLOWING IS A LIST 

OF PRIMES) 

Each of these statements would print the heading at the top 
of the next page. 

For media other than the printer (for example, tape, disk, 
or card punch), the first character of the record is treated 
as data, and a carriage control character should not be 
specified. Thus, the same FORMAT statement should not 
be used for both printing and punching. An example 
specifying the use of FORMAT statements for both print- 
ing and punching may be found in Din'cting Program Out- 
put to Both a Printer and a Card Punch in the section 
Programming Considerations in Part 2 of this publication. 



Numeric input data to be read by a READ statement when 
the object program is executed must be in essentially the 
same format as given in the previous exahnples. Thus, a 
card to be read according to 

FORMAT (I2,E12.4,F10.4) 

might be punched: 



27 -0.9321E B2 



-a .5S076 



Within each field, all information is considered right-justified; 
embedded blanks and trailing blanks in numeric fields are 
read as zeros and affect the item's value. Plus signs can be 
omitted or indicated by a +. Minus signs must be punched 
if the number is negative or has a negative exponent. Input 
for E and D format codes can contain any number of digits, 
but only the high order digits of accuracy ate retained if 
the number exceeds the capacity of the systeiri. 

To permit economy in punching, certain relaxations in 
input data format are permitted. 

1. Numbers for D and E-type format codes need not 
have 4 columns devoteci to the exponent field. The 
start ot the exponent field must be ma'f'ed by an E, 
or if that is omitted, by a + or - (not a blank). Thus, 
E2, E+2, +2, +02, E02, and E-r02 are all permissible 
expoiieiii fields. 

2. Numbers for D, E, and f Tortnai codta need nm ha^e 
their decimal point punched. If it is not punched, 
the format specification supplies it. For example, the 
number -09321+2 with the code E 12.4 is treated ;.'s 
though the decimal point were puriciied between the 
and the 9. if the decimal point is punched in the 
card, its position overrides the position nidicate::. in 
the FORMAT statement. 
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LIST-DIRECTED INPUT DATA 

A record containing list-directed input data consists of an 
alternation of constants and separators. The record can be 
read from tape or sequential disk, in addition to unit-record 
devices. 

An input constant can be any valid FORTRAN nunneric 
data type. Blanks cannot be embedded in any list-directed 
constant since they would be interpreted as separators. 
Numeric roristants can optionally be signed, but there must 
be no embedded blanks between the sign and the constant. 

Each constant must agree in type with the corresponding 
list element. The decimal point can be omitted from a 
real constant. If omitted, it is assumed to follow the right- 
most digit of the constant. 

With the exceptions noted below, a separator is either a 
comma or a blank. In addition, for console nput, an end 
indicator is a separator. For punched card input, an end- 
of-card condition is also a separator. Blanks can optionally 
occur between the comma and the carrier return or end-of- 
card. 

A separator can be surrounded by any number of blanks, 
horizontal tabs, carrier returns, or end-of-card conditions. 
Any such combination (with no intervening constants) 
constitutes a single separator. At the incept on of execu- 
tion of a list-directed READ, a preceding sejarator is 
assumed; and initial blanks, horizontal tabs, carrier returns, 
or end-of-card conditions, if present, are corsidered part 
of that separator. 

A null item is represented by two consecuti\'e commas with 
no intervening constant. Any number of bkinks, horizontal 
tabs, carrier returns, or end-of-card conditions can be em- 
bedded between the commas. If a null item is specified, 
the corresponding list item is skipped; its current value 
remains unaltered. 

A repeat factor can be specified for a constant or null 
item. For a constant, the form is 

{♦constant 

and for a null item, the form is 



In each instance, i is a nonzero unsigned Integer constant, 
which indicates that the following constant or null item is 
to occur i times. Neither of these forms can contain embed- 
ded blanks. The separators surrounding a repeated null 
item need not be commas. 



A slash (/) serves as a special-purpose separator, indicating 
that no more data is to be read during the current execu- 
tion of a READ statement. If the list has not been satisfied, 
the values of the remaining list elements remain unaltered. 
If the list has been satisfied, the slash is optional. 

Example: A list-directed READ statement is used to 
read a record containing constants of various types in- 
to main storage. For this example, the character / i-; 
used to represent a carrier return. A carrier return is 
the terminal equivalent of an end-of-card condition. 

READ (1,*) (ARRAY(I),I = 1,50),A,B,C,D,E,F,G,H, 
J,P,Q,R,S 

50*0 

2.17E-H5,3.14E0 , 1 .,2.0,0.125D-3 2*, 87,,/ 

When this statement is executed, the value 0. is read into 
each of the first 50 elements of ARRAY; real values are 
read into the variables A, B, C, D, and E; variables F and 
G are skipped because of the repeated null specification; 
the value 87. is read into the real variable H; variable J is 
skipped because of the null specification, and variables P, 
Q, R, and S receive no data because of the slash. 



LIST-DIRECTED OUTPUT DATA 

List-directed output data can be directed to tape or 
sequential disk in addition to any unit-record output device 
such as a printer or card punch. List-directed output data 
can contain any producible form of data that is readable 
as list-directed input. However, certain forms which are 
permissible as list-directed input are not produced as list- 
directed output. These forms are: 

null items 

i* repeat factor 

/ special-purpose separator 

In list-directed output, the width of the data field depends 
upon the type of variable to be written: 



Type of Variable 


Width of 




Data Field 


REAL*8 


24 


REAL»4 


14 


INTEGER*4 


11 


INTEGER»2 


6 



A blank is inserted as a separator between data fields. The 
total width of the data fields plus separators must be con- 
sidered when output is going to sequential devices. 
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Chapter 6. Input/Output Statements 



Input/output statements transfer data and control the flow 
of data between main storage and an input/oLit()ut device 
such as a carri reader, printer, punch, magnetic tape unit, 
or ilisk storage unit. 

Input/output stattMiicnts in FORTRAN aie [Jrimarily con 
cerned with the transfer of data between main storage 
locations defined in a FORTRAN program and records that 
are external to the program. On in[)ut, data is taken from a 
record and placed into main storage locations that are not 
necessaiily contiguous. On output, data is gathered from 
diverse main stor<ige locations and placed into a recor(f. An 
I/O list is used to specify which main storage locations are 
used. 

System/3 FORTRAN IV provides two types of input/output 
statements— se£/u6v)f/a/ and direct-access. Sec^uential I/O 
statements read or write records consecutively. Direct- 
access I/O statements generally read or write records 
randomly. 

Most input/output devices are sequential; that is, if there 
are 100 records to be read, they would have to be read in 

the order 1, 2, 3 99, 100. Record 57 cannot be read 

before record 56. Examples of sequential devices are card 
readers, printers, and magnetic tape. 

The 5444, 5445, and 3340 disk storage devices are the only 
System/3 devices that can read or write records randomly; 
that is, in an order determined by the programmer. When 
records are to be read or written randomly, direct-access 
statements must be used. Note, however, that sequential 
I/O statements can be used to read or write records consec- 
utively on the disk, and that direct-access I/O statements 
can also be used for reading or writing records consecutively. 



READ and WRITE statements can be used to access 
forrnutted records, unformatted records, or /ist directed 
records. 

A formatterl record has a FORMAT stateiiient associated 
with It. A FORMAT statement describes ttn; form of the 
data and how il is to be transmift(;(l. Any number of 
records can l)e i ead or written with one execjlion of ;i 
formatted READ or WRITE statement. Ttie data in the 
records are converted according \i> s[)(;cifications listi;(J m 
tlie FORMAT statement and aie assigned to (or tak(,Ti 
from) elements listed in the READ or WRITE statement 
A partially filled, formatted record u-.i.'ti loi :>ut[)ul is 
[jadded on the right with bianks. 

An unformatted record has no FORMAT statement asso 
ciated with it. If the file is sequential, oniy one record can 
be transmitted per execution of an untorniatted I/O state 
ment. The unformatted READ is used to ;e■^d lecords 
that were written on tape or disk by an unformatted 
WRITE statement. A partially filled, unformatted record 
used for output is padded on the rigfit wiii? zeros. 

A list-directed record is similar to an unformattecJ record 
in that it has no FORMAT statement associated >A'ith it. 
Its use, however, is to transmit records to ariri from any 
sequential file, such as a card render, printer, tape, o; disk. 
A partially filled, list directed record userl for outfiut is 
padded on the right with blanks. 



Each input/output statement uses a logical unit number to 
specify which input/output device (or file on a device) is 
to be used in the operation. Logical unit numbers relate 
particular devices or files to the system. For example, in 
this section we use the number 1 to refer to a card reader, 
the number 3 for a printer, the numbers 8 and 9 for disk 
files, and the number 10 for a tape file. A full explanation 
of logical unit number assignments is contained in Part 2 of 
this manual, in Chapter 13, Compilation. 



Input/Uuipui S»at('iTiei>i^ 
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Sequential Input/Output Statements 



Considerations/Restrictions: 



There are five sequential input/output statements: READ, 
WRITE, END FILE, REWIND, and BACKSPACE. 

The READ and WRITE statements are used to transmit 
data between sequential input/output devices and main 
storage. The END FILE, REWIND, and BACKSPACE 
statements are used only for sequential disk files and tape 
files. For a further discussion of sequential disk files and 
tape files, see Sequential Disk & Tape Programming 
Considerations in Part 3, Programming Considerations 
of this publication. 



READ STATEMENT 

The general forms of the READ statement are: 



Formatted read: 
Unformatted read: 
List-directed read: 



READ (u, f,END=s,ERR=t) list 
READ (u,END=s,ERR=t) list 
READ (u,»,END=s,ERR=t) list 



where 



u is an unsigned integer constant or INTEGER»4 
variable that is the logical unit number of the device to 
read from. 

f is the statement number of the FORMAT statement 
describing the data items to read. 

♦specifies list-directed data mode for sequential devices, 
that is, without use of a FORMAT statement. 

END=s is optional and specifies the number (s) of a 
statement to which to transfer control if end-of-file is 
encountered. 

ERR=t is optional and specifies the number (t) of a 
statement to which to transfer control if a transmission 
error occurs during the data transfer. This parameter is 
ignored if the file being processed is not on a disk or 
tape drive. 



The program terminates if the END= parameter is not 
specified and an end-of-file record is encountered. 

The program terminates if an ERR= parameter is not 
specified and a transmission error occurs. 

There is no end-of-file from a 5406 console kfvboard. 



Examples: 

READ (9,100) D,E,F 

The preceding formatted READ statement reads data from 
the file whose logical unit number is 9, (assume a disk file) 
into the variables D, E, and F, in the format specified by 
the FORMAT statement numbered 100. 

READ (1,98) A,B,(C{I,K),I=1,10) 

The preceding formatted READ statement reads data from 
the file whose logical unit number is 1 (assume a card 
reader) into the variables A and B, and the array elements 

C(1,K), C(2,K) C(10,K) in the format specified in the 

FORMAT statement whose statement number is 98. 

READ (J) A,B,C 

The preceding unformatted READ statement reads data 
from the file whose logical unit number is the current value 
of J into the variables A, B, and C. 

READ (1,*,END=200) (ARRAY(I),I = 1,25),B(1 ),C(6) 

The preceding list-directed READ statement reads data 
from the file whose logical unit number is 1 into the 27 
array elements specified by the list. If an end-of-file record 
is encountered, control is transferred to the statement 
numbered 200. 



If END or ERR is not specified, the preceding comma is 
omitted. 

list is an I/O list; it can contain variable names, array 
elements, array names, or a form called an implied DO. 
The I/O list is optional if f is specified. 



Uses: The READ statement transmits data from a device, 
such as a card reader or magnetic tape unit, to main storage. 
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WRITE STATEMENT 

The general forms of the WRITE statement are: 

Formatted write: WRITE (u,f) list 
Unformatted write: WRITE (u) list 
List-directed write: WRITE (u,*) list 

where 

u is an unsigned integer constant or INTEGER »4 
variable that is the logical unit number of the device to 
be written on. 

f is the statement number of the FORMAT statement 
that describes the data items to be written. 

* specifies list-directed data mode for sequential devices, 
that is, without the use of a FORMAT statement. 

list is an I/O list; it can contain variable names, array 
elements, array names, or a form called an implied DO. 
The I/O list is optional if f is specified. 



Uses: The WRITE statement transmits data from main 
storage to a device, such as a printer or disk. 

Considerations/Restrictions: The END and ERR parameters 
cannot be specified in the WRITE statement. 



Examples: 

WRITE (3,75) A,(B(I,3),I-1,10,2),C 

The preceding formatted WRITE statement writes data 
from the variables A and C and array elements B(1,3), 
B(3,3), B(5,3), 8(7,3), and B(9,3) onto the file whose 
logical unit number is 3 (a printer) according to the format 
specified by the FORMAT statement whose number is 75. 

WRITE (4) ARRAY 

The preceding unformatted WRITE statement writes data 
from the variable ARRAY onto the file whose logical unit 
number is 4. If ARRAY is an array with 25 elements, all 
25 elements are written. Since the record is unformatted, 
no FORMAT statement number is given, and none should 
be specified when the record is read back into storage. 

WRITE (2,») l,N(l) 

The preceding list-directed WRITE statement writes the 
data from the variable I and the array element N(l) on the 
unit-record device whose logical unit number is 2. 



END FILE STATEMENT 

The general form of the END FILE statement is: 

END FILE i 

where 

i is an unsigned integer constant or INTEGER »4 variable 
that is the logical unit number of a magnetic tape or a 
sequential disk file. 



Uses: The END FILE statement writes an end of-fi!e record 
on the tape or sequential disk that has logical unit number i. 



Considerations/Restrictions: An END FILE request 
followed by another END FILE to the same logical ur! 
causes a terminating error. 



Examples: 

END FILE 10 
END FILE K 



BACKSPACE STATEMENT 

The general form of the BACKSPACE statement is; 

BACKSPACE i 

where 

i is an unsigned integer constant or INTtGt R-4 vu; .able 
that is the logical unit number of a mscjiieiic tdpe os 
sequential disk file. 



Uses: The BACKSPACE statement causes a tapi :jr ;eqj<- i 
tiai disk file vi/ith a logical utiit number of i tc ce bstksjj.Hcei 
one record. 



Examples: 

BACKSPACE 10 
BACKSPACE K 



Input'Ouiput Sf3:ei!,<-; 



REWIND STATEMENT 

The general form of the REWIND statement is: 

REWIND i 

where 

i is an unsigned integer constant or INTEGER*4 variable 
that is the logical unit number of a magnetic tape or 
sequential disk file. 



Uses: The REWIND statement causes a tape or sequential 
disk file with a logical unit number of i to be rewound to 
the beginning of the file. The REWIND statement also 
closes the file. 



Considerations/Restrictions: When a file is rewound, an- 
other REWIND request to that file is ignored. 



Examples: 

REWIND 10 
REWIND K 
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Direct-Access Input/Output Statements 



DEFINE FILE STATEMENT 



The direct-access statements permit a programmer to read 
and write records randomly from any location within a 
file. They contrast with the sequential input/output state- 
ments, described previously, that process records, one after 
the other, from the beginning of a file to its end. With 
the direct-access statements, a programmer can go directly 
to any point in the file, process a record, and go directly 
to any other point without having to process all the 
records In between. 

There are four direct-access input/output statements: 
READ, WRITE, DEFINE FILE, and FIND. 

The READ and WRITE statements transfer data into or 
out of main storage. These statements allow the user to 
specify the location within a file from which data is to be 
read or into which data is to be written. 



The general form of the DEFINE FILE statement is: 

DEFINE FILE Uj (rj ,5, ,fi ,v, ),U2 (r2 ,S2 ,f2 ,*/. ), • ■ ■ , 
Up (rn.Sn-fn-Vn) 

where 

each u is an unsigned integer constant that ii; the logical 
unit number. 

each r is an unsigned integer constant that s(!ecifies XY\e 
number of records in the file associated with u. Systeni/3 
does not use the number of records field (r) in the 
DEFINE Fl LE statement as a check for accessing 
records outside the range of the hie. The raiige oi si?i; 
of the file is set by the FILE statement via the tracks 
or records parameter. 



The DEFINE Fl LE statement describes the characteristics 
of the file(s) to be used during a direct-access operation. 

The FIND statement points to the next record required. 

In addition to these four statements, the FORMAT state- 
ment (described previously) specifies the form in which to 
transmit data. The direct-access READ and WRITE state- 
ments and the FIND statement are the only input/output 
statements that can refer to a logical unit number defined 
by a DEFINE FILE statement. 

Each record in a direct-access file has a unique record 
number associated with it. The programmer must specify 
in the READ, WRITE, and FIND statements not only the 
logical unit number, as for sequential input/output 
statements, but also the number of the record to be read, 
written, or found. Specifying the record number permits 
processing selected records of the file, instead of records in 
their sequential order. 

The number of the record physically following the one just 
processed is made available to the program in an integer 
variable called the associated variable. Thus, if the 
associated variable is used in a f^EAD or WRITE statement 
to specify the record number, sequential processing is 
automatically secured. The associated variable is specified 
in the DEFINE FILE statement, which also gives the 
number, size, and type of the records in the direct-access 
file. 

For a further discussion of direct-access files, see Direct- 
Access Programming Considerations section of this 
publication. 



each s is an unsigned integer constant that specifies the 
maximum size of each record associated vvitii :i. The 
record size is measured in characters {bytesS, storage 
locations (bytes), or storage units (words), (A storage 
unit is the number of storage iocations divided by four 
and rounded to the next highest integer.) The rnethod 
used to measure the record size depends uprjn the 
specification for f. 

each f specifies that the file is to be read or written 
either with or without format control; f can be one of 
the following letters: 

L to indicate that the file is to be, read or vv, iricit 
either with or without format contro:, r,'!;:; th?:* iht; 
record size is measured in ;iumDer o^ .tc '. ,i: i;:catio; 
(bytes). 

E to inalcate that the file is to bi; ;e<;(i '.yr v/rsx::-:- 
with format control (as specified by a FORMAT 
statement), and tfiat the record size is ;i r-,!;t/ii'..i :!! 
number of characters (bytes). 

U to indicate that the file is tc be r-:ad o? vwtii^ei: 
without format control, and that the lecor-' '.::■: ■• 
measured in number of storage unit:, (■.'./■ir:.'-;;. ''.>r 
DEFINE FILE statement with U spec.fi i 'ti'^;,';"- ■ 
record size in four-byte words. The >.u.:i -'^ m ■: d 
length should be considered when :M'V-'! ' - . ■;:!■: 
length. 



Input ;'OuV)i.n yij'.eii^e!!. 



each V is an integer variable called an associated variable. 
At the conclusion of each read or write option, v is 
set to a value that points to the record that immediately 
follows the last record transmitted. At the conclusion 
of a find operation, v is set to a value that points to the 
record found. The value of the associated variable must 
be set before the first read or write operation on the 
file. 



If an E is substituted for each L in the preceding DEFINE 
FILE statement, a FORMAT statement is required and the 
data is transmitted under format control. 

If the data is to be transmitted without format control, 
the DEFINE FILE statement can be written as: 

DEFINE FILE 8(50,25,U,I2),9(100,13,U,J3) 



Uses: The DEFINE FILE statement describes the character- 
istics of one or more direct-access files. To use the direct- 
access READ, WRITE, and FIND statements in a program, 
the file must be described with a DEFINE FILE statement. 
Each direct-access file must be described once, and only once, 
in the main program. 



Considerations/Restrictions: 

1. The DEFINE Fl LE statement cannot be used in a 
subprogram. 

2. The associated variable cannot appear in the I/O list 
of a READ or WRITE statement for a file with which 
it is associated. 

3. The value of the associated variable should be set 
before the first read or write operation. 

4. An associated variable passed to a subprogram as an 
argument in a CALL statement is not automatically 
updated when input/output operations are performed 
in the subroutine. (The associated variable is updated 
if it is passed to a subprogram via COMMON or 
GLOBAL, instead of through the argument list.) 



Examples: 

DEFINE FILE 8(50,100,L,I2),9(100,50,L,J3) 

The preceding DEFINE FILE statement describes two 
files, referred to by logical unit numbers 8 and 9. The data 
in the first file consists of 50 records, each with a maximum 
length of 100 storage locations. The L specifies that the 
data is to be transmitted either with or without format 
control. 12 is the associated variable that points to the 
next record. 



DIRECT-ACCESS READ STATEMENT 

The general form of the direct-access READ statement is: 

READ (u'r,f,ERR=s) list 

where 

u is an unsigned integer constant or an integer variable 
of length 4 that represents a logical unit number; u must 
be followed by an apostrophe ('). 

r, the relative record number, is an integer expression 
that represents the relative position of a record within 
the file associated with u. The relative record number of 
the first record of a direct-access file i? 1 . 

f is optional and, if given, specifies the statement number 
of the FORMAT statement that describes the data being 
read. 

ERR=s is optional and s is the number of a statement in 
the same program unit as the READ statement to which 
control is given when a device error condition is 
encountered during data transfer from device to storage. 

list is an I/O list; it can contain variable names, array 
elements, array names, or a form called an implied DO. 
The I/O list is optional if f is specified. 



Uses: The direct-access READ statement transfers data 
from a direct-access device to main storage. 



The data in the second file consists of 100 records, each 
with a maximum length of 50 storage locations. The L 
specifies that the data is to be transmitted either with or 
without format control. J3 is the associated variable that 
points to the next record. 
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Considerations/Restrictions: 

1. The file being read must be defined by a DEFINE 
FILE statement. 

2. The I/O list must not contain the associated variable 
defined in the DEFINE FILE statement for file u. 

3. The END= parameter cannot be specified in a direct- 
access READ statement. 



Example: 

DEFINE FILE 8(500,100,L,ID1 ),9(100,28,L,ID2) 
DIMENSION M(10) 



ID2=21 



10 FORMAT (5120) 
9 READ (8'16,10) (M(K),K=1,10) 



13 READ (9'ID2+5) A,B,C,D,E,F,G 

In the precediny example, READ statement 9 transmits 
data from the file associated with logical unit number 8, 
under control of FORMAT statement 10; transmission 
begins with record 1 6. Ten data items of 20 characters 
each are read as specified by the I/O list and FORMAT 
statement 10. Two records are read to satisfy the I/O list, 
because each record, as defined by the FORMAT statement, 
contains only five data items (100 characters). The 
associated variable ID1 is set to a value of 18 at the conclu- 
sion of the operation. 

READ statement 1 3 transmits data from the file associated 
with logical unit number 9, without format control; 
transmission begins with record 26. Data is read until the 
I/O list for statement 13 is satisfied or until the end of the 
record, whichever occurs first. Because the DEFINE FILE 
statement for file 9 specified the record length as 2& 
storage locations, the I/O list of statement 13 calls for the 
same amount of data (the seven variables are type real and 
each occupies four storage locations). The associated 
variable ID2 is set to a value of 27 at the conclusion of the 
operation. If the value of ID2 is unchanged, the next 
execution of statement 13 reads record 32. 



The DEFINE FILE statement in the previous example can 
also be written as' 

DEFINE FILE 8(500,100,E,ID1 ),9{100,7.U,ID2) 

The FORMAT statement can also control the poiri: at 
which reading starts. For example, if statement 10 in the 
example is 

10 FORMAT (//5I20) 

records 16 and 17 are skipped, record 18 is read, recoras 19 
and 20 are skipped, record 21 is read, and !D1 is set to d 
value of 22 at the conclusion of the READ operation in 
statement 9. 

DIRECT-ACCESS WRITE STATFJV1ENT 

The general form of the direci-accesb VVRLi L • .. f.ttr. ,<; is: 

WRITE (u'r,f) list 

where 

u is an unsigned integer constant or INTLGER»4 variable 
that represents a logical unit number; u rnusi be foHowed 
by an apostrophe ('). 

r, the relative record number, is an intege: ftxpressiori 
that represents the relative position o^ <i rocord v\!''.riV\ 
the file associated with u, 

f is optional and, if yiven, spec'ii-ii iiiu susten-u i-? tu.-r'Der 
of the FORMAT statement 'J«ar dusc: ■=;;', r:- .i,.;- r:e.:-;;j 
written. 

list is an I/O list; it can contau, i-anablr rui r:?,;, .jsio,- 
elements, array narTiOS, or s form l;3Si^^i di' ■':, :' " ' ' - • 
It is optional if I is spt'cif^ed. 



Uses: The direct-access WRITE statPiiiti 
from main storage to a direct-acce.^s -i; v, 



Considerations/h'estrictions: 

1. The file being w.iiten rnusi bv. 'i=r:-:. 
FILE staler.'tfv,. 

2. The I/O list musf n " '<p^^i\\ i\r . 
defined in the Dtf INT • 'i 

3. The ERR- and ENf>- pan-in:..: -; cji 
on a direct-access V\/RITE '^■.aV-nneui 



Example: 



10 
8 



DEFINE FILE 8(500,100,L,ID1),9(100,28,L,ID2) 
DIMENSION M(10) 



ID2=21 



FORMAT (5120) 

WRITE (8'16,10) (M(K),K=1,10) 



FIND STATEMENT 

The general form of the FIND statement is: 

FIND (u'r) 

where 

u is an unsigned integer constant or INTEGER »< .urlable 
that represents a logical unit number; u must be followed 
by an apostrophe ('). 

r, the relative record number, is an integer expression 
that represents the relative position of a record within 
the file associated with u. 



1 1 WRITE (9'ID2+5) A,B,C,D,E,F,G 

In the preceding example, WRITE statement 8 transmits 
data into the file associated with logical unit number 8, 
under control of FORMAT statement 10; transmission 
begins with record 16. Ten data items of 20 characters 
each are written as specified by the I/O list and FORMAT 
statement 10. Two records are written to satisfy the 1/0 
list because each record contains five data items (100 
characters). The associated variable ID1 is set to a value of 
18 at the conclusion of the operation. 

WRITE statement 1 ''■ transmits data into the file associated 
with logical unit number 9, without format control; 
transmission begins with record 26. The contents of 28 
storage locations are written as specified by the I/O list for 
statement 1 1 . The associated variable ID2 is set to a value 
of 27 at the conclusion of the operation. Note the 
correspondence between the records described (28 storage 
locations per record) and the number of items called for by 
the I/O list (7 variables, type real, each occupying four 
storage locations). 

The DEFINE FILE statement in the example can also be 
written as; 



Uses: The FIND statement updates the associated variable 
for the direct-access file with a logical unit number, u, to 
the value of the relative record number, r. 



Considerations/Restrictions: 

1. No actual I/O operations are performed. 

2. The file referred to in the FIND statement must be 
defined by a DEFINE FILE statement. 



Example: 

DEFINE FILE8(1000,80,L,IVAR) 
10 FIND (8'50) 



15 READ (8'50) A,B 

After the FIND statement is executed, the value of IVAR 
is 50. After the READ statement is executed, the value is 
51. 



DEFINE FILE 8(500,100,E,ID1 ),9(100,7,U,ID2) 

As with the READ statement, a FORMAT statement can 
also be used to control the point at which writing starts. 
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General Example— Direct-Access Operations 

DEFINE FILE 8(1000,72, L,ID8) 
DIMENSION A(100),B(100),C(100),D(100), 
E(100),F(100) 
15 FORMAT (6F12.4) 
FIND (B'l) 

DO 100 1 = 1,100 
100 READ (8'ID8+4,15)A(I),B(I),C(I),D(I),E(I),F(I) 



DO 200 1 = 1,100 
200 WRITE (8'ID8+4,15)A(I),B(I),C(I),D(I),E(I),F( 

END 



Thu general example illustrates the ability of direct access 
statements to gather and disperse data in an order desig- 
nated by the user. The first DO loop in the example fills 
arrays A through F with data from the fifth, tenth, fifteenth, 
. . . , and five hundredth record associated with logical unit 
number 8. Array A receives the first value in every fifth 
record, B the second value and so on, as speciiieri by 
FORMAT statement 15 and the I/O list of th(' READ 
statement. At the end of the READ operation, the rficords 
are dispersed into arrays A through F. At the conciiision of 
the first DO loop, IDS has a value of 501 . 

The second DO loop in the example groups tie data items 
from each array, as specified by the i/O list ol the WRITE 
statement and FORMAT statement 15. Each group of data 
items is placed in the file associated with logical unit 
number 8. Writing begins at the five hundred fifth record 
and continues at intervals of five, until record 1 000 is 
written, if IDS is not changed between the last READ and 
the first WRITE. 



The FIND statement initially sets IDS to 1. 



i nput/Out[Jur S' 
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Chapter 7. Specification Statements 



The specification statements are nonexecutable statements 
that provide the compiler with information about the nature 
of data used in the source program. In addition, they supply 
the information required to allocate locations in storage for 
this data. 

Specifications must precede statement function definitions, 
which must precede the program part containing at least 
one executable statement. The PROGRAM statement, if 
present, must precede all statements in a main program. 
The IMPLICIT statement, if present, must precede all state- 
ments in a main program except the PROGRAM statement, 
and all statements in a subprogram except the FUNCTION 
or SUBROUTINE statement. 



TYPE STATEMENTS 

There are two kinds of type statements; the IMPLICIT 
specification statement, and the explicit specification state- 
ments, REAL and INTEGER. 

The IMPLICIT statement enables you to; 

• Specify the type (including length) of all variables, 
arrays, and user-supplied functions whose names begin 
with a particular letter 

The explicit specification statements enable you to; 

• Specify the type (including length) of a variable, array, 
or user-supplied function of a particular name 

• Specify the dimensions of an array 

The explicit specification statements override the IMPLICIT 
statement, which, in turn, overrides the predefined conven- 
tion for specifying type. 



IMPLICIT Statement 

The general form of the IMPLICIT statement 

IMPLICIT type, »Si (ai i ,ai 2, • • •), • • • type,, *Sn(an , ^ 

3n2 , . . .) 

where 

type is either INTEGER or REAL. 

each »s is optional and represents one of the permissible 
length specifications for its associated type. 

each a is a single alphabetic character or a range of 
characters drawn from the set A, B, . . . , Z, S, in that 
order. The range is denoted by the first and last charac- 
ters of the range separated by a minus sign (for example, 
(A-D)). 



Uses: This statement specifies the type (including length) 
of all variables, arrays, and user-supplied functions whose 
names begin with a particular letter. The tyfjes that a 
variable, array, or function can assume, along with the 
permissible length specifications, are as follows: 

Type Length Specification 

INTEGER 2 or 4 (standard 1 crigth is 4i 

REAL 4 or 8 (standard length is 4) 

If the standard length is desired, the *s can be omittea II 
the optional length is desired, the *s fnust be mcluded in 
the IMPLICIT statement. 



.Speclficat 



Considerations/Restrictions: 

1 . In a main program, if IMPLICIT is specified, it must 
immedialely follow the PROGRAM statement, or be 
the first stateii ent if PROGRAM is not specified. 

2. In a subfirogram, if IMPLICIT is specified, it must 
immediately follow the FUNCTION or SUBROUTINE 
statement. 

3. There can be only one IMPLICIT statement per pro- 
yiasi or subprogram. 

4. The IMPLICIT statement overrides the [^redefined 
convention for sfjecifying type. 

Examples: 

IMPLICIT REAL (A-H,0-$),INTEGER(l N) 

All variables beginning with the characters I through N are 
declared as INTEGER. Because no length specification is 
explicitly given (that is, the *s was omitted), four bytes, 
the standard length for INTEGER, are allocated for each 
variable. 

All other variables (those beginning with the characters A 
through H and O through Z and $) are declared as REAL 
with four bytes alkxjated for each. 

Note that the statement in this example defines the type 
for variables the same as the predefined convention. 

IMPLICIT INTEGER»2(A-H),REAL*8(I-K) 

All variables beginning with the characters A through H are 
declared as integer with two bytes allocated for each. All 
variables beginning with the characters I through K are 
declared as real with eight bytes allocated for each. 

Because the remaining letters of the alphabet, L through Z 
(and $), are left undefined by the IMPLICIT statement, the 
predefined convention remains in effect. Thus, the variables 
beginning with the letters L, M, and N are integer, each with 
a standard length of four bytes, and variables beginning with 
the letters O through $ are real, each with a standard length 
of four bytes. 



Explicit Specification Statements (INTEGER and REAL) 

The general form oi ex|)licit specification statements is: 

ty|)e>s a, (k, j.a^ {k^ ), . . . a||(k„) 
where 

type IS INTEGER or REAL. 

*s IS optional and represents one of the fjermissible 
length specifications for its associated typo. 

a is a variable, array, or function name. 

k is optional and gives dimension information for arrays. 
Each k IS composed of one through three unsigned inte- 
ger constants, separated by commas, representing the 
maximum value of eacfi subscript in the array. 

Uses: This statement specifies the type (including length) 
of a variable, array, ot user-supplied function by its name, 
rather than by its initial character. This differs from the 
other ways of specifying the type (that is, predefined con- 
vention and the IMPLICIT statement). In addition, the 
information necessary to allocate storage for arrays (dimen- 
sion information) can be included within the statement. 

Considerations/Restrictions: 

1 . The explicit specification statements override the 
IMPLICIT statements for specifying type. 

2. Explicit specification statements must follow any 
IMPLICIT statement, and must precede executable 
statements in the program. 



Examples: 

INTEGER»2 ITEM,VALUE 

This statement declares that the variables, ITEM and 
VALUE, are of type integer, each with two storage locations 
reserved. 

REAL*8 BAKE R,HOLD,VALUE, ITEM (5,5) 

This statement declares that the variables, BAKER, HOLD, 
VALUE, and the array named ITEM, are of type real with a 
length of 8 bytes. In addition, it declares that the array 
named ITEM has 200 bytes reserved (8 for each element in 
the array). Note that when the length is associated with 
the type (for example, REAL*8), the length applies to each 
variable in the statement. 
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In the same manner in which the IMPLICIT statement over- 
rides the predefined convention, the explicit specification 
statements override the IMPLICIT statement and prede- 
fined convention. If the length specification (*s) is omitted, 
the standard length per type is assumed. 



DIMENSION STATEMENT 

The general form of the DIMENSION statement is; 

DIMENSION a, (kil.a^lkj) an(l<n) 

where 



COMMON STATEMENT 

The general form of the COMMON statement 

COMMON ai (ki),a2(k2) an(kn) 

where 

a is a variable name or array nairie that is not a dummy 
argument. 

k is optional and is composed of one through three un- 
signed integer constants, separated by commas, repre- 
senting the maximum value of each subscript in the airay. 



a IS an array name. 

k is composed of one to three unsigned integer constants, 
separated by commas, representing the maximum value 
of each subscript in the array. 



Uses: This statemijnt provides information necessary to 
allocate storage fo; arrays used m the source program. 



Considerations/Restrictions: The DIMENSION statement 
must precede executable statements and any DATA state- 
ments mitializing array a. 



Uses: The COMMON statement is used to shaie otoiage l;v 
two or more program units, and to specify the names of 
variables and arrays that are to occupy this arpa. Stotage 
sharing can be used for two purposes: to conserve siordgi:, 
by avoiding more than one allocation of storage ior vaiirtbii. 
and arrays used by several program units; and to inakt; 
arguments available between a callinci prograni and a sol; 
program. Arguments passed in a common area do nof 
appear in the argument lists of either the caHmg prcgraiT: or 
subprogram. Arguments in common are subject to ti-e 
same rules with regard to type, length, etc., a; aitiumont's 
passed in an argument list. {These rules sf-; described in ri:.; 
section about subprograms.) 



Examples: 

DIMENSION A(10),ARRAY(5,5,5),LIST(10,100) 
DIMENSION B(25,25),TABLE(5,10,15) 

The first statement defines three arrays. A, ARRAY, and 
LIST. The array. A, is a single dimension array consisting 
of ten elements. The array, ARRAY, is a three-dimensional 
array; and LIST is a two-dimensional array. The second 
statement defines a two-dimensional array, B, and a three- 
dimensional array, TABLE. 



Considerations/Restrictions: 

1. There is no restriction as to iho fiuni';C! o'' prog; 
units that can have COMMCJN -r.itcr'ients, excer, 
that a COMMON statement \n a sinqie .irocid v, ^^ 
serves no purpose other than strict'v oriierinq ih( 
arrangement of variables in commor;. I ; -houK; r 
ally have at least one counterpart in an'!?i\t'r ,>■':., 
unit. 

2. There can be more than one COfvlMOK' ; "■a*:pr-i'.;ii 
a program unit. Only one commor: s'Cjy..; oie,. 
allocated, containing aii the variables a'd :(r,jv- 
the order of their specification. A vaMi'b!'; '?'■ af 
name cannot appear more than oiic>; ■■''•■ -.• CGiVni'! 
statemoiit, in more than o-ic C0i\/l^'10>v \.','.<_av-:. 
the same program uriit, or In octh ;i CO'ViMr.'r'i ■.; 
GLOBAL statement. 



Not all program units need refer to all of the variables 
and arrays in common. Thus, in order to maintain 
correct positioning, so-called dummy variables can be 
inserted into the COMMON statement list. These 
dummy arguments are not referred to anywhere else 
in the program unit. Their function is to allow you 
to position vai lable and array names that otherwise 
would be in the wrong locations in a COMMON 
statement. 



Example: 

Main Program 



Subprogram 



Example 1 : 

Because the entries in a common area share storage locations, 
the order in which they are entered is significant when the 
common area is used to transmit arguments. Consider the 
following example: 



Main Program 



Subprogram 



COMMON A,B,C,R(100) SUBROUTINE MAPMY 



REAL A,B,C 
INTEGER R 



COMMON X,Y,Z,S{100) 
REALX,Y,Z 
INTEGER S 



COMMON A, B,C,D COMMON DUMMY1 , BETA, 
DUMMY3, DELTA 



CALL MAPMY 



4. Because the main program and subprograms have 
access to common storage locations via the COMMON 
statement, they have a way of communicating with 
each other. This means that a value computed in one 
program unit and placed in common storage can be 
used by another program unit in much the same man- 
ner as if it were passed as an argument. This idea be- 
comes clearer when CALL statements and function 
references are discussed, later in tnis part of the publi- 
cation. 

5. The GLOBAL statement can be used to pass addition- 
al variables to some subprograms that are not needed 
by other subprograms. (The GLOBAL statement is 
fully described in the section Interprogram Communi- 
cation. ) 

Example: 

PROGRAM MAIN 
GLOBAL A,B,C 
COMMON X,Y,Z 
CALLSUB1 
CALLSUB2 



The statement COMMON A,B,C,R(100) in the main pro- 
gram reserves 412 storage locations (four locations per 
variable) in the following order: 

Beginning of 
Common Area 



A 



R(1) 
R(2) 



RdOO 



4 Storage Locations 

The statement COMMON X, Y, Z,S(100) in the subprogram 
then causes the variables X, Y, Z, and S(1), . . . ,S(100) to 

share the same storage space as A, B, C, and R(1 ) 

RdOO). 



SUBROUTINE SUB1 
GLOBAL A1,A2,A3 



SUBROUTINE SUB2 
COMMON B1,B2,B3 



SUB1 would share with MAIN variables A, B, and C, 
while SUB2 would share X, Y, and Z. In this case, 
it is not necessary to introduce dummy variables into 
the common block. 
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Example 2: 

Assume a common area is defined in a main program and in 
three subprograms as follows: 

Main Program COMMON A, B,C (A and B are 8 stor- 
age locations, C is 4 storage 
locations.) 

Subprogram 1 COMMON D,E,F (D and E are 8 stor- 
age locations; F is 4 storage 
locations.) 

Subprogram 2: COMMON Q,R,S,T,U (4 storage 

locations each.) 

Subprograms: COMMON V,W,X,Y,Z (4 storage 

locations each.) 

The correspondence of these variables within common can 
be illustrated as lollows: 



Main Program 

COMMON A,B,C 



Subprogram 1 

COMMON D,E,F 



Subprogram 2 

COMMON Q.R.S.T.U 



-B- 



•D- 



4 Storage Locations 



4 Storage Locations 



Subprogram 3 

COMMON V,W,X,Y,Z 



Q 



V 



W 



Y 



4 Storage Locations 



4 Storage Locations 



The main progra n can transmit values for A, B, and C to 
subprogram 1, provided that C is of the same type as F. 
However, the ma n program and subprogram 1 cannot, by 
assigning values to the variables A and B, or D and E, trans- 
mit values to the variables Q, R, S, and T in subprogram 2, 
or V, W, X, and Y in subprogram 3, because the lengths of 
their common variables differ. Likewise, subprograms 2 
and 3 cannot transmit values to variables A and B, or D 
and E. 

Values can be transmitted between variables C, F, U, and 
Z, assuming that each is of the same type. With the same 
assumption, values can be transmitted between Q and V, 
R and W, S and X, and T and Y. Note, however, that 
assignment of values to A or D destroys any values assigned 
to Q, R, V, and W, (and vice versa) and that assignment to 
B and E destroys the values of S, T, X, and Y (and vice 
versa). 



Specification S;.ai.c;ncn[s 



EQUIVALENCE STATEMENT 

The general form of the EQUIVALENCE statement Js; 
EQUIVALENCE (a, , .a, . ,a, , , . . JJa,. , .aj, ,a. 3 , 

wliere 

a is a variable or array element, a cannot be a dummy 
argument The subset ipts of array elements can have 
either r.f iwo forms: 

it the array element has a single subscript, the sub- 
script refers to the linear position of the element in 
the array (that Is, its position relative to the first ele- 
ment in the array: third element, seventeenth element, 
two hundred fifty-ninth element). 

If the array element has more than one subscript (with 
the number of subscripts equal to tire number of 
dimensions of the array), the subscript refers to posi- 
tion in the same manner as in an arithmetic statement 
(that is, its position relative to the first element of 
each dimension of the a.-^ay). In either case, the sub- 
scripts themselves must be unsigned integer constants. 

Uses: The EQUIVALENCE statement provides the option 
for controlling the allocation of data storage within a 
single program unit. In particular, when the logic of the 
program permits it, the number of storage locations used 
can be reduced by causing locations to be shared by two 
or more variables (of the same or different types). Equival- 
ence between variables implies storage sharing. 

Considerations/ Restrictions: 



the last eiomenf of aiiother a'ray.) The EQUIVAL- 
ENCE statcrncfit must not cofMsadict itself or any 
previously established equivdiences. 

5. The EQUiVAl.ENCE statement is the only statement 
in which a single subscript can be used to refer to an 
element (or elemeins) in a muitidimensioiia! array. 

6. Variables that appear in COMMON or GLOPAi, 
statements cannot be made equivalent to each other. 
However, a variable can be made equivalent to a 
variable in common or global. If the variable that is 
equivalenced to a variable in common or global is an 
element of an airay, tfie implicit equivalencing of the 
rest of the elements of the array can extend the size 
of common or global as shown in the following 
examples. The size of common or global cannot be 
extended so that elements are added before the begin- 
ning of the established common or global area. 



Example 1: 

Assume that in the initial part of a program, an array, C, 
of size 10x10 is needed; in the final stages of the program, 
C is no longer used, but arrays A and B of sizes 5x!5 and 
10, respectively, are used. The elements of all three arrays 
are of the type REAL'^. Storage space can then be saved 
by using the statements; 

DIMENSION C(10,10),A(5,5),B(10) 
EQUIVALENCE (C(1 ),A{1 )),(C(26),B(1 )) 

The array A, which has 25 elements, can occupy the same 
storage as the first 25 elements of array C because the 
arrays are not both needed at the same time. Similarly, the 
array B can share storage with elements 26 to 35 of array 
C. 



1 . a cannot be a dummy argument. 

2. All the elements within a single set of parentheses 
share the same storage locations. The order of appear- 
ance of names within an equivalence group is im- 
material. 

3. Mathematical equivalence of variables or array ele- 
ments IS implied only when they are of the same 
type, when they share exactly the same storage, and 
when the value assigned to the storage is of that type. 

4. Because arrays are stored in a predetermined order as 
discussed previously, equivalencing two elements of 
two different arrays will implicitly equivalence other 
elements of the two arrays. (The one exception is 
when the first element of an array is equivalenced to 



Example 2: 

DIMENSION B(5),C(10,10),D(5,10,15) 
EQUIVALENCE (A,B( ! ),C(5,3)),(D(5,10,2),E) 

This EQUIVALENCE statement specifies that the variables 
A, B(1 ), and C(5,3) are assigned the same storage locations 
and that variables D(5,10,2) and E are assigned the same 
storage locations. It also implies that the array elements 
B(2) and C(6,3), etc., are assigned the same storage locations. 
Note that further equivalence specification of B(2) with 
any element of array C other than C(6,3) is invalid. 
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Example 3: 



OTHER SPECIFICATION STATEMENTS 



COMMON A,B,C 
DIMENSION D(3) 
EQUIVALENCE (B,D(1)) 

This establishes a common area containing the variables A, 
B, and C. The EQUIVALENCE statement would then 
cause the variable D(1 ) to share the same storage location 
as B, D(2) to share the same storage location as C, and 
D(3) would extend the size of the common area, in the 
following manner: 

A (lowest location of the common area) 

B,D(1) 

C,D(2) 

D(3) (highest location of the common area) 

The following EQUIVALENCE statement is invalid: 

GLOBAL A, B,C 
DIMENSION D(3) 
EQUIVALENCE (B,D(3)) 

because it would force D(1 ) to precede A, as follows: 

D(1) 
A, 0(2) (lowest location of the common area) 

B,D(3) 
C (highest location of the common area) 



There are four other specification statements: EXTERNAL 
GENERIC, PROGRAM, and GLOBAL. EXTERNAL and 
GENERIC are discussed in the following chapter, which 
deals with subprograms. PROGRAM and GLOBAL are 
discussed in the chapter Interprogram Communication. 

DATA INITIALIZATION STATEMENT 

The general form of the DATA statement is: 

DATA k, /i, »d, /.kj/io^d;/ k,,/!,, ^d,,/ 

where 

k is a list containing variables, array elements (in which 
case, the subscript quantities must be unsigned integei 
constants), or array names. 

d is a list of constants (integer, real, hexadecimal, or 
literal). 

i* is optional and is an unsigned integer constant appear- 
ing before d, indicating that d is to be specified > times. 

Uses: This statement defines initial values of variables, 
array elements, or arrays. 



Example 4: 

A real variable (REAL*8) is equivalenced to several ele- 
ments in an integer (INTEGER*2) array. This can be done 
to address two bytes of an eight-byte field. The storage 
space can be shared by using the following statements: 

REAL'S D 
INTEGER*2 1(4) 
EQUIVALENCE (D,l(1)) 

The four elements of array I share storage with variable D 
as follows: 



Sign 
X 







1(1) 


1(2) 


1(3) 


1(4) 



Speciiicaiion St, 



Considerations/Restrictions: 

1. There must be a one-to-one correspondence between 
data elements (k) and initializing constants (d). 
However, this correspondence can be violated when 
initializing arrays with literal data. An array element 
can be initialized by subscripting the array name. 
Only one element is initialized this way. If any excess 
Characters are specified, they are truncated and not 
placed into the next element. If there are not enough 
characters specified, the element is padded on the 
right with blanks. 

Several consecutive elements of an array can be 
initialized with a single literal constant by specifying 
the array name without a subscript. Data spill (over- 
flow data from one element to the next) occurs 
through as many elements as necessary to insert the 
constant. If the last element initialized is only 
partially filled, it is padded on the right with blanks. 
(Any subsequent array elements are not initialized.) 
Truncation occurs if the constant exceeds the limit 
of the array. 



2. 



3. 



For real and integer types, each constant must agree 
in type with the variable or array element it is 
initializing. 

A variable, array element, or array that is in a 
common or globoi area cannot be initialized with a 
DATA statement. 

Dummy arguments cannot appear in list k. 

The DATA statement must precede any statement 
that uses the initialized variable, and must follow 
any specification statement describing the variable. 



Examples: 

DIMENSION D(5,10) 

DATA A,B,C/5.0,6.1,7.3/,D,E/25»1. 0,25*2.0,5.1/ 

The DATA statement indicates that the variables A, B, and 
C are to be initialized to the values 5.0, 6.1 , and 7.3 
respectively. In addition, the statement specifies that the 
first 25 elements of the array D are to be initialized to the 
value 1 .0, the remaining 25 elements of D to the value 2.0, 
and the variable E to the value 5.1 . 

DIMENSION A(5), 8(3,3) 

DATA A/5*1 .0/, B/9*2.0/,C/'FOUR7,STRING/Z0F/ 



The DATA statement specifies that all the elements in the 
arrays A and B are to be initialized to the values 1 .0 and 
2.0, respectively. In addition, the variable C is initialized 
with the literal data constant FOUR, and the variable 
STRING is initialized with the hexadecimal data OF. 

DIMENSION A(10),B(9),C(2) 
DATA A(1 ),A(2),A(4),A(5)/'ABCD','QRSTUVW', 
'123','66667 

DATA B/'ABCDEFGHIJKLMNOPQRSTUVW/XYZV 
DATA C/'ABCDEFGHIJKL7,X/'MN0P7 

Through the DATA statements above, storage would be 
initialized as follows: 

A(1) contains ABCD. 

A(2) contains QRST. 

A(3) is not initialized (spill does not occur for a 
subscripted array name). 

A(4) contains 123bS. 

A(5) contains 6666. 

A(6) through A(10) are not initialized. 

B(1) contains ABCD. 

B(2) contains EFGH. 

B(3) contains IJKL. 

B(4) contains MNOP. 

B(5) contains QRST. 

B(6) contains UVWX. 

B(7) contains YZbtiS. 

B(8) is not initialized. 

B(9) is not initialized. 

C(1) contains ABCD. 

C(2) contains EFGH. (The remainder of the constant 
is truncated.) 

X contains MNOP. 
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Chapter 8. Subprograms 



It is sometimes necessary to write a program which, at 
various points, requires the same computation to be per- 
formed with different data for each calculation. It would 
simplify the writing of that program if the statements 
required to perform the desired computation could be 
written only once and then referred to freely, with each 
subsequent reference having the same effect as though 
these instructions were written at the point in the program 
where the reference was made. 

For example, to take the cube root of a number, a program 
must be written with this object in mind, if a general 
program were written to take the cube root of any number, 
it would be desirable to be able to combine that program 
(or subprogram) with other programs where cube root 
calculations are required. 

The FORTRAN language provides for the above situation 
through the use of subprograms. There are two classes of 
subprograms; FUNCTION subprograms and subroutine 
subprograms. In addition, there is a group of FORTRAN- 
supplied subprograms. Function subprograms return at 
least one value to the calling program, whereas subroutine 
subprograms need not return any. In addition, the method 
of referring to the two kinds of subprograms is different. 

A subprogram must never refer to itself directly or 
indirectly. 



Type Declaration of FUNCTION Subprograms: The 
declaration can be made by the predefined convention, by 
the IMPLICIT statement, by an explicit specification in the 
FUNCTION statement, or by an explicit specification 
statement within the function subprogram. Note that if 
the predefined convention is not used, the function must 
specify the type both in the function subprogram and in 
each program unit that refers to the function. 

No type is associated with a subroutine name because the 
types of results that are returned to the calling program 
are dependent only on the types of the variable names 
appearing in the argument list of the calling program and 
the implicit arguments In common or global. 



STATEMENT FUIMCTIONS 

A function is a statement of the relationship between a 
number of variables. To use a function in FORTRAN, it is 
necessary to: 

1. Define the function (that is, specify which calcula- 
tions to perform) 

2. Refer to the function by name when you want to 
use it in the program 



Statement functions are also discussed in this section 
because they are similar to function subprograms. The 
difference is that subprograms are not in the same program 
unit as the program unit referring to them, whereas state- 
ment function definitions and references are in the same 
program unit. 



Function Definition 

There are three steps in the definition of a tuncticn in 
FORTRAN; 

'I . The function must be assiijned a name by whiCM if 
can be called 



Naming Subprograms 



The dummy arguments of tiie function mi;si Dc btater 



A subprogram names consists of from one through six 
alphameric characters, the first of which must be alphabetic 
but not a $. A subprogram name cannot contain special 
characters. The type of a function determines the type of 
the result that can be returned from it. 



3. The procedure for evaluating the iucction nvxo be 
stated 

Items 2 and 3 are discussed in deiaii iri the scctiOiis t;-a!i';o 
with the specific subprogram:,, stateiv,e>-,i \\i-;-x.-aOh'\ ^r,d 
FUNCTION subprograms. 



Type Declaration of a Statement Function: The declaration 
can be accomplished in one of three ways: by the prede- 
fined convention, by the IMPLICIT statement, or by the 
explicit specification statements. Thus, the rules for 
declaring the type of variables apply to statement functions. 



Function Reference 



Considerations/Restrictions: 



When the name of a function, followed by a list of its 
arguments, appears in any FORTRAN expression, it refers 
to the function and performs the computations as indicated 
by the function definition. The resulting quantity (the 
function value) replaces the function reference in the 
expression and assumes the type of the function. The type 
cf the name used for the reference must agree with the 
type of the name used in the definition. 



Dummy arguments can appear only once in the list 
of arguments. 

There must be at least one dummy argument, (a), 
and no more than 15. 

Any statement functions appearing in the expression 
must be defined previously. 



Using the result of one function as an argument to another 
function IS called nesting. Nesting of functions cannot be 
more than 20 levels deep. 

The general form of a statement function definition is: 

name(ai ,a2,a3, . . . ,a„)=expression 

where 

name is the statement function name. The name con- 
sists of from one to six alphabetic or numeric characters, 
the first of which must be alphabetic but not $. 

a is a dummy argument. It must be a distinct variable 
(it can appear only once within the list of arguments). 
There must be at least one dummy argument; and no 
more than 15. 

expression is any arithmetic expression that does not con- 
tain array elements. Any statement function appearing in 
this expression must be defined previously. 



Uses: A statement function definition specifies operations 
to be performed whenever that statement function name 
appears as a function reference in another statement in the 
same progiam unit. 

The expression to the right of the equal sign defines the 
operations to perform when a reference to this function 
appears in a statement elsewhere in the program unit. The 
expression defining the function must not contain a 
reference to the function it is defining. 

The dummy arguments enclosed in parentheses following 
the function name are dummy variables. The arguments 
given in the function reference are substituted for the 
dummy variables when the function reference is encoun- 
tered. The same dummy arguments can be used in more 
than one statement function definition, and can be used 
as variables outside the statement function definitions. An 
actual argument in a statement function reference can be 
any expression of the same type as the corresponding dummy 
argument. 



4. The expression defining the function must not 
contain a reference to the function it is defining. 

5. Arguments can be variables only (the expression can 
contain constants). 

6. All statement function definitions used in a program 
must precede the first executable statement of the 
program. 

7. Expressions cannot contain array elements. 



Example: The statement: 

FUNC(A,B)=3.*A-i-B*»2.-i-X-i-Y-i-Z 

defines the statement function FUNC, where FUNC is the 
function name and A and B are the dummy arguments. 
The expression to the right of the equal sign defines the 
operations to be performed when the function reference 
appears in an arithmetic statement. 

The function reference might appear in a statement as follows: 

C=FUNC(D,E) 
This is equivalent to: 

C=3.*D-i-E**2.-i-X-i-Y-HZ 

Note the correspondence between the dummy arguments 
A and B in the function definition and the actual arguments 
D and E in the function reference. 

The following are valid statement function definitions and 
statement function references: 

Function Definition Function Reference 

SUM(A,B,C,D)= NET=GROS-SUIVI(TAX,OLDAGE, 

A-fB-i-C-i-D HOSP,STOCK) 

FUNC(Z)=A-i-X«Y*Z ANS=FUNC(RESULT) 
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The following are invalid statement function definitions: 
Function Definition Reason 



SUBPRG(3,J,K) = 

3*!+J**3 
SOMEF(A(l),B)== 

A(l)/B+3. 
SUBPROGRAM 

(A,B)=A*»2+B»*2 
3FUNC(D)=3.14*E 

ASF(A)=A+B(I) 

BAD(A,B)=A+Bf 

BAD(C,D) 
NOGOOD(A,A)= 

A*A 



Arguments must be variables. 

Arguments must not be array 

elements. 
Function name exceeds the limit 

of six characters. 
Function name must begin with 

an alphabetic character. 
Expressions cannot contain an 

array element. 
Definition not permitted to refer 

to itself. 
Arguments are not distinct 

variable names. 



The following are invalid statement function references 
(the functions are defined previously); 

Function Reference Reason 

WRONG=SUM Number of arguments does not 

(TAX,FICA) agree with definition. 

MIX=FUNC(I) Type of argument does not agree 

with above definition. 



FUNCTION SUBPROGRAMS 

The general form of the FUNCTION statement 
type FUNCTION name»s (ai,a2,a3, , . . .a^) 

where 

type is INTEGER or REAL. Its inclusion is optional. 

name is the name of the FUNCTION, consisting of from 
one to six alphabetic or numeric characters, the first of 
which must be alphabetic but not $. 

s represents one of the permissible length specifications 
for its associated type. It can be included optionally 
only when type is specified. 

a is a dummy argument. It must be a distinct variable or 
array name (that is, it can appear only once within the 
statement) or dummy name of a SUBROUTINE or 
other function subprogram. There must be at least 
one argument in the argument list. 



Uses: The function subprogram is a FORTRAN subprogram 
consisting of a FUNCTION statement followed by other 
statements including a RETURN and an END statement. It 
is an independently written program that is executed when 
its name is referred to in another program. 

A type declaration for a function name can be made by the 
predefined convention, by an IMPLICIT statement, by an 
explicit specification in the FUNCTION statement, or by 
an explicit specification statement within the function 
subprogram. The function name must also specify type in 
the program units that refer to it if the predefined conven- 
tion is not used. 

Because the subprogram is a separate program unit, there is 
no conflict if the variable names and statement numbers 
within it are the same as those in other program units. 



Considerations/Restrictions: 

1. The FUNCTION statement must be the first statement 
in the subprogram. 

2. The function subprogram can contain any FORTRAN 
statement except: 

• a SUBROUTINE statement 

• another FUNCTION statement 

• a DEFINE FILE statement 

• a PROGRAM statement 

3. If an IMPLICIT statement is used in a function sub 
program, it must immediatoiy foiiovv' fhe FUNCriOr\l 
statement. 

4. The name of the function mast be assigned a value ai 
least once in the subprogram-as: 

• the variable name to the left of tlie equd! siqn in an 
arithmetic statement 

• an argument of a CALL statement 

• an external function, referenrr risat is as.sigr,ec' j 
value by a subroutine referred to 

• an item in a list of a READ statement in the 
subprogram 



-.'programs 
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6. 



The dummy arguments in a function subprogram 
cannot be redefined (that is, cannot appear to the 
left of an equal sign). 

The number of dummy arguments in a FUNCTION 
statement cannot exceed 25. 



Example: 

The relatio'^ship between variable names used as arguments 
in the calling program and the dummy variables used as 
arguments in the function subprogram is illustrated in the 
following example: 



Calling Program 



Function Subprogram 

FUNCTION CALC(A,B,J) 



SUBROUTINE SUBPROGRAMS 

The general form of the SUBROUTINE statement is: 

SUBROUTINE name (a,,a2,a3 an) 

where 

name is the SUBROUTINE name, consisting of uom one 
to six alphabetic or numeric characters, the first of which 
must be alphabetic but not $. 

a is a distinct dummy argument (that is, it can appear 
only once within the statement). There need not be any 
arguments, in which case, the parentheses must be 
omitted. Each argument used must be a variable or array 
name or the dummy name of another subroutine or 
function subprogram. 



ANS=R00T1' 
CALC(X,Y,I) 



l=J*2 



CALC=A* 

RETURN 

END 



l/B 



In this example, the values of X, Y, and I are used in the 
FUNCTION subprogram as the values of A, B, and J 
respectively. The value of CALC is computed, and this 
value is returned to the calling program where the value of 
ANS is computed. The variable I in the argument list of 
CALC in the calling program is not the same as the variable 
I appearing in the subprogram. 



Calling Program 
INTEGER»2CALC 



ANS=R00T1» 
CALC(N,M,L) 



Function Subprogram 

INTEGER FUNCTION CALC* 
2(I,J,K) 



CALC=I+J+K*»2 



RETURN 
END 

The function subprogram, CALC, is declared as type 
INTEGER of length 2. 



Uses: The subroutine subprogram is similar to the function 
subprogram in many respects. The rules for naming func- 
tion and subroutine subprograms are similar. They both 
require a RETURN and an END statement, and they both 
contain the same sort of dummy arguments. Like the 
function subprogram, the subroutine subprogram is a set of 
commonly used computations, but unlike the function 
subprogram, it need not return any results to the calling 
program. The subroutine subprogram is referred to by the 
CALL statement. 



Considerations/Restrictions: 

1. The SUBROUTINE statement must be the first 
statement in the subprogram. The subroutine sub- 
program can contain any FORTRAN statement 
except a FUNCTION statement, another SUBROU- 
TINE statement, a DEFINE FILE statement, or a 
PROGRAM statement. If an IMPLICIT statement 
is used in a subroutine subprogram, it must 
immediately follow the SUBROUTINE statement. 

2. The subroutine subprogram can use one or more of 
its arguments to return values to the calling program. 
An argument so used appears on the left side of an 
arithmetic assignment statement, in the list of a 
READ statement within the subprogram, or as an 
argument in a CALL statement or function 
reference that is assigned a value by the subroutine 
referred to. The subroutine name must not appear 

in any other statement in the subroutine subprogram. 
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3. The dummy arguments (ai ,82,83 an) are con- 
sidered dummy names that are replaced at the time of 
execution by the actual arguments supplied in the 
CALL statement. Additional information about 
dummy arguments is in the section Dummy Argu- 
ments in a Function or Subroutine Subprogram. 

4. Each distinct dummy argument (a) can appear only 
once in the list of arguments and the number of 
dummy arguments cannot exceed 25. 

5. If there are no dummy arguments, the parentheses 
must be omitted. 

6. A subroutine subprogram must contain an END 
statement and at least one RETURN statement. 

7. Because the subprogram is a separate program unit, 
there is no conflict if the variable names and statement 
numbers within it are the same as those in other 
program units 



Considera tions/Res trie tions. 

1. The arguments cannot be constants or expressions if 
the subprogram changes their value. 

2. There cannot be more than 25 arguments sn a CALL 
statement. 



Examples: 

CALL OUT 

CALL MATMPY(X,5,40,Y,7,2) 

CALL QDRTIC(X,Y,Z,ROOT1.ROOT2) 

CALLSUBKX+VB.ABDF.SINE) 

The CALL statement transfers conticii to the subroutine 
subprogram, and associates the dummy viiriaijles v/ith tlie 
value of the actual arguments that appear in the CALL 
statement. 



Examples: 

SUBROUTINE COPY (A,B,N) 
SUBROUTINE NULL 



CALL Statement 

The CALL statement is used to call a subroutine 
subprogram. 

The general form of the CALL statement is; 

CALL name (ai ,82,83 , . . . ,8,1) 
where 

name is the name of a subroutine subprogram. 

Each a is an actual argument that is being supplied to 
the subroutine subprogram. The argument can be a 
variable, array element, array name, constant, arithmetic 
expression, or subprogram name. 



Uses: The CALL statement transfers control to a subrou- 
tine subprogram. The CALL statement associates the 
dummy arguments named in the SUBROUTINE statement 
with the value of the actual arguments in the CALL state- 
ment. 



Example: 






Calling Program 




Subroutine Subprogram 


DIMENSION 






X(100),Y(100) 




SUBROUTINE COPY(A,B,N( 
DIMENSION A(100),Bi'100} 
DO 10!i) 1,N 


CALL COPY 


10 


B(!)-A(!) 


(X,Y,100i 




RETURW 
END 



The preceding exarrpie si-.o-ws ch;- ;!.'latiO!is'.;p Of ii'/oen 
variable names used as argumeiits i.i tha caihivj iirot'ram 
and the dummy variables usee* a? aiy'jmsr.ts m thf SUB- 
ROUTINE subprogram. 

Subroutine COPY copies array A n-i ,, ar,„y ;; ,,„.; ,■ ihe 
subprograni. In this particui^r Ciil, ose .v.'L'fontin'j ,iri;;>,'S- 
A and B, are associated with the caiiK.y pahiid'n orray^, X. 
and Y, respectively, and the vanabi-^ N ui iiie sLin:C .f-. •■ 
associated with the value 100. Thus a cs!! to i.i'brou'snp 
COPY in this instance results <n the 100 ei6,,>'n'j of sn-y 
X being copied into the 100 cieir-.ont-.; of rrrav > 



RETURN STATEMENT 

The general form of the RETURN statement is; 
RETURN 



Uses: This statement is used to exit from a function or 
subroutine subprogram. It signifies the conclusion of a 
series of computations. The subprogram transmits 
argument values and eturns control to the calling program. 



Considerations/Restr ictions: 

1. There can be several RETURN statements in a sub- 
program. 

2. The RETURN statement cannot appear in a main 
program. 



Example: 

FUNCTION DAV(D,E,F) 
IF (D-E)10,20,30 
10 A=D+2.0»E 



DUMMY ARGUMENTS IN A FUNCTION OR SUBROU- 
TINE SUBPROGRAM 

The dummy arguments of a subprogram appear after the 
function or subroutine name and are enclosed in parentheses. 
They are associated at the time of execution with the 
actual arguments supplied in the CALL statement or 
function reference in the calling program. 

The dummy arguments must correspond in numbt,., order, 
and type to the actual arguments. For example, if an 
actual argument is an integer constant, then the correspond- 
ing dummy argument must be an integer variable of length 
4. If a dummy argument is an array, the corresponding 
actual argument must be (1 ) an array, or (2) an array ele 
merit. In the first instance, the size of the dummy array 
must not exceed the size of the actual array. In the second, 
the size of the dummy array must not exceed the size of 
that portion of the actual array that follows and includes 
the designated element. 

The actual arguments can be: 

• An arithmetic constant 

• Any type of variable or array element 

• Any type of array name 



A=F-f2.0*E 



• Any type of arithmetic expression 



• The name of a function or subroutine subprogram 



20 DAV=A-HD**2 



RETURN 
30 DAV=D**2 



RETURN 
END 

If the result of (D-E) is negative or zero, the first RETURN 
statement is executed. If the result is positive, the second 
RETURN is executed. 



An actual argument that is the name of a subprogram must 
be identified by an EXTERNAL statement in the calling 
program unit containing that name. Hexadecimal constants 
cannot be actual arguments. 

A dummy argument is an array when an appropriate 
DIMENSION or explicit specification statement appears in 
the subprogram. None of the dummy arguments can 
appear in an EQUIVALENCE, COMMON, or GLOBAL 
statement. 

Dummy arguments or common or global elements cannot 
be assigned new values in a function subprogram. If a 
dummy argument is assigned a value in a subroutine sub- 
program, the corresponding actual argument must be a 
variable, an array element, or an array. A constant or 
expression should not be written as an actual argument 
unless the programmer is certain that the corresponding 
dummy argument is not assigned a value in the subprogram. 
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A referenced subroutine cannot assign new values to dummy 
arguments that are associated with other dummy arguments 
within the subroutine or with variables in common or global 
areas. For example, if the subroutine DEiRIV is defined as 

SUBROUTINE DERIV (X, Y, Z) 
COMMON W 

and if the following statements are included in the calling 
program 

COMMON B 



Examples: 

The name of any subprogram that is passed as an argument 
to another subprogram must appear in an EXTERNAL 
statement in the calling program. For example, assume that 
SUB is a subroutine subprogram and MULT is a function 
subprogram in the following statements: 



Calling Program 

EXTERNAL MULT 



Subprogram 

SUBROUTINE SUB(K,M,Z) 
IF {K)4,6,6 
4 D-M(K,Z**2) 



CALL DERIV (A,B,A) 

then X, Y, Z, and W cannot be assigned new values by the 
subroutine DERIV. Dummy arguments X and Z cannot be 
defined because they are both associated with the same 
argument. A; nor dummy argument Y, because it is associa- 
ted with an argument, B, which is in common; nor the 
variable W, because it is also associated with B. 



EXTERNAL STATEMENT 

The general form of the EXTERNAL statement is: 

EXTERNAL a,, aj, as an 

where 

each a is a name of a subprogram that is passed as an 
argument to other subprograms. 



CALLSUB(J,MULT,C) 

6 RETURN 
END 

In this example, the subprogram name MULT is used as an 
argument in the subprogram SUB. The subprogram name 
MULT is passed to the dummy variable M as are the vana 
bles J and C passed to the dummy variables K and Z, res- 
pectively. The subprogram MULT, is executed only if the 
value of K is negative. 



Calling Program 



CALLSUB{A,B, 
MULT(C,D),.37) 



Subprogram 

SUBROUTINE SUBjW.X, 
M,N) 



RETURN 
END 



Uses: The EXTERNAL statement identifies the names of 
subprograms that are passed as arguments to another sub- 
program. 

Considera tions/Restric tions: 

1. The EXTERNAL statement is a specification state- 
ment, and must precede statement function definitions 
and all executable statements. 

2. If the name of a FORTRAN-supplied intrinsic func- 
tion is used in an EXTERNAL statement, the func- 
tion from the System/3 FORTRAN library is not 
used when it appears as a function reference. Instead, 
it is assumed that the function is supplied by the user. 



In this example, an EXTER^SAL stateiT'«nt !• r;ot re-i,,):. 
because the subprogram named ivllii. f ;5 n:A .<•• Cirycnie; 
it is executed first and the re<:uii becoirits the a^-gnrrvnr. 



S.ib.ir;. 
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AUTOMATIC FUNCTION SELECTION 

The automatic function selection facility allows you to use 
a single generic name when requesting a FORTRAN- 
supplied function that has several names depending on 
argument type. The proper function is selected by the 
FORTRAN compiler, based on the type of the argument(s) 
of the function. 

With this facility you can, for example, use the generic 
name, Slli, to refer to any sine routine, rather than expli- 
citly calling SIN for REAL*4 arguments and DSIN for 
REAL*8 arguments. The facility is requested by including 
the GENERIC statement in each executable program unit 
in which it is to be used. 



GENERIC Statement 

The general form of the GENERIC statement is: 
GENERIC 



Uses: The GENERIC statement indicates that for FOR- 
TRAN-supplied functions having several names depending 
on argument type, the correct function is to be selected by 
the FORTRAN compiler. 

The use of the GENERIC statement declares the set of 
names in the first column of Figure 4 to be generic. Specific 
built-in and library function names can be interspersed 
with generic names in the same program unit. 



Considera tions/Resulc iions: 

1. As a specification statement, GENERIC must precede 
statement function deiinitions and all executable 
program statements, and must follow any PROGRAM, 
FUNCTION, SUBROUTINE, or IMPLICIT statement. 

2. The use of a generic name in an explicit type state- 
ment overrides its definition as generic, because 
generic names have no type. If the generic name of 
an intrinsic function appears in an EXTERNAL 
statement, its definition as generic is aiso overridden, 
because it is thereby considered an external procedure. 
(The intrinsic functions are underlined in the first 
column of Figure 4.) A generic name that does not 
coincide with an intrinsic function name can appear 

in an EXTERNAL statement and still be considered 
generic. 

3. Generic names cannot be passed as arguments to 
external procedures. The automatic function selec- 
tion facility will not substitute the appropriate 
function for the generic name in an argument list 
when the generic name is used without arguments. 

Note: There is no way to make such a selection, be- 
cause the name being passed as an argument has no 
arguments of its own. Thus, a function name is spec- 
ific for use as an argument, even if the same name is 
generic for use as a function reference. 



Example: 

GENERIC 

EXTERNAL COS 

REAL*8A,B,C,D 

C=COS(A) 

D=DCOS(B) 

CALLSUB(COS) 

Because automatic function selection is invoked, the 
function DCOS is called to calculate the value of C and D. 
The specific name COS is passed to the subroutine SUB. 
Because COS is not an intrinsic function name, it can be 
used in an EXTERNAL statement and still be used as a 
generic name, 
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Generic 

Function 

Name 

(intrinsic 

function) 


Specific Function Name By Type 
and Length of Arguments Permissible 


Function Value 


INTEGER«4 


REAL*4 


REAL.8 


Type 


Length 


ABS(I) 

AINT(l) 

ATAN 

COS(l) 

DIM(2) 

EXP(l) 

INT(1) 

LOG(l) 

LOGIO(l) 

MAX(>2) 

MIN(>2) 

MOD (2) 
SIGN(2) 
SIN(1) 
SQRT(I) 

TANH(l) 


lABS 

IDIM 

MAXO 

=MAX© 

MINO 

= MIN© 

MOD 

ISIGN 


ABS 

AINT 

ATAN 

COS 

DIM 

EXP 

INT ^ 

= IFIX® 

ALOG 

= LOG® 

ALOGIO 

=ALOG10© 

AMAXl 

AMIN1 

AMOD 
SIGN 
SIN 
SORT 

TANH 


DABS 

DA TAN 
DCOS 

DEXP 
IDINT 

DLOG 

DLOG10 

DMAX1 

DMIN1 

DMOD 
DSIGN 
DSIN 
DSQRT 

DTANH 


Arg®' 

Real 

Real 

Arg 

Arg 

Arg 

Integer 

Arg 

Real 

Arg 

Arg 

Arg 
Arg 
Arg 
Arg 

Real 


Arg 
Arg 
Arg 
Arg 
Arg 
Arg 
4 

Arg 

Arg 

Arg 

Arg 

Arg 
Arg 
Arg 
Arg 

Arg 


© The function name is an alias. The functions in the left column are aliases for those in the right column. They are 
aliases both when GENERIC is specified and when it is not. 

Alias Function 

LOG ALOG 
LOG10 ALOGIO 
MAX MAXO 
MIN MINO 

© IFIX performs the same function as INT, and is shown as a member of the GENERIC family INT. 

© The abbreviation arg is used to indicate that the type and/or length of the function value is the same as the argument. 

Parentheses, 0, indicate the number of arguments. 



Figure 4. Generic Functions 
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Chapter 9. Interprogram Communication 



System/3 FORTRAN IV provides a means of loading and 
executing main programs successively. Each program can 
share a common storage area that is not overlaid when the 
next program is invoked. 

Interprogram communication enables you to avoid the 
impasse that results when the main storage available for a 
FORTRAN job is insufficient for the data and object code 
required to process it. It also allows for more efficient 
execution of programs, that because of their complexity, 
require calls to numerous subroutines. 

Interprogram communication is provided by three System/3 
FORTRAN statements-PROGRAM, INVOKE, and 
GLOBAL. The PROGRAM statement assigns a user name 
to a main program that is called (loaded into main storage) 
with the INVOKE statement. The GLOBAL statement 
specifies a storage area (and the variables and arrays it 
contains) that will not be overlaid when the invoked pro- 
gram is loaded. 

The following situation illustrates the usefulness of inter- 
program communication. 

Assume that 16,000 bytes of main storage is available for 
use by a FORTRAN program. This program must read a 
large amount of data, process it, and write it out. Assume 
that the data requires 10,000 bytes of storage, leaving 
6,000 bytes for object code which includes routines for 
reading, processing, and writing. If each of these three 
steps required the full amount of storage available (6,000 
bytes), the program could not be executed even if it were 
divided into a main program and two subroutines (because 
a subroutine does not overlay the program that calls it). The 
minimum amount of storage required for processing code 
would still be 12,000 bytes. 

However, with the INVOKE and GLOBAL statements, the 
program could be divided into three main programs of 
6,000 bytes each, with the 10,000-byte data area designated 
as global. When the first main program is through with its 
processing, it invokes the second program, which overlays 
the first (occupies the same 6,000 bytes of storage). The 
10,000 bytes of data in the global area is not destroyed. 
When the second program is through processing, it, in turn, 
invokes the third program. 



PROGRAM STATEMENT 

The general form of the PROGRAM statement is: 

PROGRAM name 

where name is the name of the main program. The name 
consists of from one to six alphabetic or numeric characters, 
the first of which must be alphabetic, but not $. 



Uses: The PROGRAM statement assigns a name to a main 
program. 



Considerations/Restrictions: 

1. The PROGRAM statement must be specified if 
another program calls the main program using the 
INVOKE statement. 

2. The PROGRAM statement must be specified if the 
program is to be compiled, link-edited, and stored 
on a disk pack (for execution at a later time). 

3. A PROGRAM statement, if present, must be the first 
statement in a main program. 

4. A PROGRAM statement cannot be used in a sub- 
program. 



Examples: 

PROGRAM PROGS 
PROGRAM COST 



INVOKE STATEMENT 

The general form of the INVOKE statement is: 

INVOKE name 

where name is the name of a main program specified in a 
PROGRAM statement. 
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Uses: The INVOKE statement causes the named program 
to overlay the invoking program and receive control. A 
program that is invoked begins execution at its first exe- 
cutable instruction. 

Considerations/Restrictions: 

1 . The INVOKE statement can appear in a main program 
or a subprogram. 

2. When using the INVOKE statement on a non-DPF 
system, the program being invoked must not be 
larger than the amount of user main storage. When 
using the INVOKE statement on a DPF or multi- 
programming system, the program being invoked 
must not be larger than the program that was initially 
loaded into main storage (the program specified on 
the LOAD statement). Also, the invoked program 
cannot be larger than the program level or partition 
size when using a PARTITION statement. 

The CORE statement can be included in the program 
initially loaded into main storage to specify the size 
of the largest program to be invoked (refer to CORE 
Compiler Option Statement). 

3. The program being invoked and the invoking program 
must reside in the object library on the same drive. 

4. When the invoking program and the program being 
invoked are both reading cards from the MFCU1 on 
the Model 10 or any card input device on the Model 
15, that device should be single buffered. If the 
device is double buffered, a data record will be lost 
when the program is invoked. 

5. If an invoking program uses a sequential disk file, 
a following invoked program must refer to that 
file by the same logical unit number. 



constants separated by commas, representing the maximum 
value of each subscript in the array. 



Uses: The GLOBAL statement provides the sharing of a 
main storage area, (and the variables and arrays contained 
in it) by two or more main programs. It is like a COMMON 
statement except that it can be used to communicate 
between two or more main programs in addition to program 
units in the same program. 



Considerations/Restrictions: 

1 . The GLOBAL statement can appear in a main program 
or a subprogram. A program unit can contain any 
number of GLOBAL statements. All entries in these 
statements are strung together in the order of their 
specification. An entry cannot be specified more 
than once in a GLOBAL statement, in more than one 
GLOBAL statement, or in both a GLOBAL and 
COMMON statement. 

2. The global data area is for interprogram communica- 
tion, although a main program may share a global 
data area with a subprogram. The local COMMON 
statement can still be used for this intraprogram 
communication. 

3. Rules regarding the use of equivalence are the same 
for a global data area as for a common data area. 
Specifically, the EOUIVALENCE statement cannot 
be used to extend the size of the global area by 
adding elements before the beginning of the global 
block. In addition, a variable or array cannot be 
associated by equivalence to a global variable, array, 
or array element if the variable or array so associated 
is itself in a global or common block. 



Examples: 

PROGRAM FIRST 



PROGRAM SECOND 



Example: 

PROGRAM FIRST 
GLOBAL A,B,C(5,5), 
D(10,1000) 



PROGRAM SECOND 
GLOBAL X,Y,Z(25), 
DATA(10,1000) 



INVOKE SECOND 
GLOBAL STATEMENT 

The general form of the GLOBAL statement is: 
GLOBAL a, (ki),a2(k2) a„(kn) 

where a is the name of a variable or array, k is an optional 
subscript composed of from one to three unsigned integer 



INVOKE SECOND 



END 



STOP 
END 
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Chapter 10. Debug Facility 



The debug faciiity is a [-irograrnming aid that enables you 
to locate errors in a FORTRAN source program. The debug 
facility traces the flow within a program, traces the flow 
beivvieen programs, and checks the val'dity of subscripts. 

The deb'jij faciMtv consists of a DEBUG statement, an AT 
(Jebijg packet idenciiication statement, and two executable 
statements. These siatements specify the debugging opera- 
tions for d smgie piogram unit in source language. (A pro- 
gram unit is 2 sirigle 'nain program or a subprogram.) 

The sourco deck arrangement consists of Xhe source 
language stotcmerits t'^.at constitute the program, followed 
by the OEBiJG specification statement, followed by the 
debug packets, followed by the END statement. 

The statements that make up a program debugging opera- 
tion must be grouped in one or more debug packets. A 
debug packet consists of an AT statement followed by a 
TRACE ON or TRACE OFF statement. 



DEBUG STATEMENT 



The general form of the DEBUG statement is: 



TRACE 

This option must be in the DEBUG statement of 
each program or subprogram for which tracing is 
requested. If this option is omitted, there is no dis- 
play of program flow by statement number within 
this program. Even when this option is used, a 
TRACE ON statement must appear in the first debug 
packet in which tracing is requested. 

INIT(mj ,m2 , . . ■,m„] 

where m is the name of a variable or an array that is 
displayed in the debug output file only when the 
variable or the array values change. 

If m is a variable name, the name and value are dis- 
played whenever the variable is assigned a new value 
in either an assignment or a READ statement. 

If m is an array name, the changed element is dis- 
played. If the list of names is omitted, a display 
occurs whenever the value of a variable or an array 
element is changed. 

If the entire option is omitted, no display occurs 
when values change. 



DEBUG optio; 



. ,Of>tion 



INIT cannot be applied to a dummy variable. 



where option car. be any of the following: 



SUBCHK(n, 



where n is an array name. The validity of the sub- 
scripts used with the named arrays is checked by com- 
paring the subscript combination with the size of the 
array. If the subscript exceeds its dimension bounds, 
a message is placed in the debug output file. Program 
execution continues, using the incorrect subscript. If 
the iist of array names is omitted, all arrays in the 
program are checked for valid subscript usage. If the 
entire option is omitted, no arrays are checked for 
valid subscripts 

When subscript checking occurs, only two bytes of 
the subscript ate examined. If an INTEGER«4 value 
is used as a subscript, the leftmost two bytes of the 
subscript value are ignored. 

SUBCHK cannot be applied to a dummy array. 



SUBTRACE 

This option specifies that the name of this subprogram 
is displayed whenever it is entered. The message, 
RETURN, is displayed whenever execution of the 
subprogram is completed. 

Uses: The DEBUG statement sets the conditions for opera- 
tion of the debug facility and designates debugging opera- 
tions that apply to the entire program unit. 
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Considerations/Restrictions: 

1 . There must bo one, and oniy one, DEBUG statement 
for each program or subprogram to be debugged; it 
must follow the last executable statement (such as 
STOP or RETURN), The debug packets must immedi 
ately follow the DEBUG statement, 

2. 1 he options m a DEBUG statement can be given only 
once, can appear in any order, and rnusi be separated 
by cornmas. 

3. Ouiput from a debug operation is directed to the 
FORTRAN error logging devce. {See PRINT and 
NOPRINTER Device Option Statements in Chapter 
13 for mora !• formation.) 



AT STATEMENT 



TRACE ON STATEMENT 

The general form of the TRACE ON statement is; 
TRACE ON 



Uses: The TRACE ON statement initiates the diiplay of 
program flow beginning at the statement number indica,.jd 
by the AT statement. Each time a statement thai, .,as a 
statement number is executed, the statement number is 
printed out on the debug output file. 



Considerations/Restrictions: 

1 , For the TRACE ON statement to be valid, the 
TRACE option must be specified in the DEBUG 
statement. 



The general i'orm oi the ,AT statemeni is- 

ATn 

where 

n is the statement nurnbei )f an executable statement 
in the program or subprogram to be debugged. 



Uses: The AT stu' ment identifies the beginning of a 
debug packet and indicates the statement number in the 
program unil where statement tracing is to begin or end. 



Consideraliuns/ Restrictions: 

1 . There inubt be one AT statement tor each debug 
packet. (Tfieie can bo many debug packets for one 
program or subprogrdm.) 

2. The TRACE option must be specified in the DEBUG 
statement if AT is specified. 



2. Tracing begins immediately before the execution of 
the statement specified in the AT statement. 

3. The TRACE ON statement stays in effect through 
any level of subprogram call or return. However, if 
a TRACE ON statement is in effect and control is 
given to a program in which the TRACE option was 
not specified, the statement numbers in that program 
are not traced. 



Example: 

200 X-Y+Z 



DEBUG TRACE 
AT 200 
TRACE ON 
END 



3. A TRACE ON statement or TRACE OFF statement 
must lollow tiie AT statement. 

Example: 

200 X - Y r Z 



DEBUG TRACE 
AT 200 
TRACE ON 
END 
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TRACE OFF 

The general form of the TRACE OFF statement is; 
TRACE OFF 



Uses: The TRACE OFF statement stops the display of 
prograir; flow Ijeginninc) at the slatement number indicated 
by the AT statement. 



All of the invalid subscripts processed in STOCK, and all 
of the values of STOCK are to be displayed. 



Example 2: 










10 


A^ 


= 1.5 






12 


L = 


= 1 






15 


B = 


^ A+ 1 


.5 




20 


DO 22 1 = 


-- 1 


,5 



Considerations/Restrictions: For this statement to be 
valid, the TRACE option must be specified in the DEBUG 
statement. 



Ex a IV pit': 

200 X-Y t Z 



210 X=Y^Z 



DEBUG TRACE 
AT 200 
TRACE ON 
AT 210 
TRACE OFF 
END 



EXAMF'LES OF THE DEBUG FACILITY 

Example I : 

DIMENSION STOCK(1000),OUT(1000) 



22 


CONTINUE 


25 


C = B f 3.16 


30 


D = C/2 




STOP 



DEBUG TRACE 
C DEBUG PACKET NUMBER 1 

AT 10 

TRACE ON 
C DEBUG PACKET NUMBER 2 

AT 20 

TRACE OFF 
C DEBUG PACKET NUMBER 3 

AT 30 

TRACE ON 

END 

When statement 10 is encountered in the preceding example, 
tracing begins as indicated by debug packet 1 . When state- 
ment 20 is encountered, tracing stops as indicated by the 
TRACE OFF statement in debug packet 2. When state- 
ment 30 is encountered, debug packet 3 tracing begins 
again. 

In this example, trace output is produced for statement 
numbers 10, 12 15, and 30. No debug output is produced 
for statement numbers 20, 22, and 25. 



DO 30 1 = 1,1000 
25 STOCK (l)=STOCK(l)-OUT(l 

30 CONTINUE 

35 A=B+C 



DEBUG SUBCHK(STOCK),INIT(STOCK) 
END 
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Chapter 11. Examples of FORTRAN Programs 



SAMPLE PROGRAM 1 

This sample otocjram, (Figure 5) is designed to find all of 
the orimo numbers between 2 dnd 1000. A prime number 
is an i-neger greater than 1 shjt cannot be evenly divided 
by any integer except itself and 1. Thus 2, 3, 5, 7, 1 1 , 
. . . are prime r.umbers. The number 9 is not a prime 
number because it i^n be evenly divided by 3. 



"" -Jat^'> . PRotiRftMj, 



FORTRAN Coding Form 



GX28 7327 U/M&60 



kj^ "' 1- _ _ FORTRAN STATEMENT 




Figure 5, Sample Program 1 
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SAMPLE PROGRAM 2 

The n points (xj, yj) are to be used to fit an m degree poly- 
nomial by the least-squares method. 

y = ao-^alX-l-a2x■^-l- ...-t-amx'" 

In order to obtain the coefficients ao, aj , . . ., a^n , it is 
necessary to solve the normal equations: 

(1) Woao+W,a, +... + Wn,am =Zo 

(2) W,ao +W2ai -I- . . .-H Wm-H,am = Z, 



{m+^) Wn,a-HWm-H,a, -^...-^W2man, =Z„ 
where: n 

Wo=n Z =^ yj 

i = 1 



E 



w,. 2^ ,. 

i = 1 



n 



E 



E 



Z, = 7 VjXi 
i = 1 

n 



E 



W,= > Xi^ Z2= > yjXj^ 

i = 1 i = 1 



After the Ws and Zs are computed, the normal equations 
are solved by the method of elimination, which is illustrated 
by the following solution of the normal equations for a 
second degree polynomial (m = 2). 

(1) WoBo +Wia, +\N2a2 = Zq 

(2) Wiao +W2a, +W3a2 = Z, 

(3) Wjao + Wja, + W4 a2 = Zj 

The forward solution is as follows: 

1. Divide equation (1) by Wq 

2. Multiply the equation resulting from step 1 by Wi 
and subtract from equation (2) 

3. Multiply the equation resulting from step 1 by Wj 
and subtract from equation (3) 

The resulting equations are; 

(4) ao + bijai + bj ,a2 = b,4 

(5) b22ar + b23a2 = b24 

(6) bsja, + b33a2 = b34 

where: 

b,2=W,/Wo, bi3=W2/Wo, b,4=Zo/Wo 

b22 =W2-bi2W, , b23 =W3-b,3Wi , b24=Z,-b,4W, 
b32 = W3-bi2W2 , b33 =W4-b,3W2 , b34=Z2-bi4W2 

Steps 1 and 2 are repeated using equations (5) and 16), 
with b2 2 and b3 2 instead of Wq and Wi . The resulting 
equations are: 

(7) ai + C2 382 = C24 

(8) C33a2 =C34 



E 



i = 1 



,-^ V.xi^ 



i = 1 



where: 

C23 =b2 3/b2 2 .C24 =b2 4/b2 2 

C33 = b33 -C2 3b32 , C34 = b34 -C24 b32 

The backward solution is as follows: 

(9) a2=C34/c3 3 from equation (8) 

(10) ai=C24-C23a2 from equation (7) 

(11) ao =b,4-b,2a,-b|3a2 from equation (4) 
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Figure 6 is a baiispie FORTF- AN program foi carrying out 
the calculations (or the cai«: n "-- 100, ni < 10. W,,, W, , 



W^m ;iie s'.otei! in W{1),, VV(2), W(3), . 



W2, 

W(2IVl-i-1), respectively, Z,,, Z, , 2^ Z,, 

Z(1 ), Z(2), Z(3) Z(M I 1 ), respectively. 



are stored in 



[°" " _AMPLi.l'lM. JUiM. 



FORTRAN Codiny Form 

I T RAPH 



GX28 7327 U/M050 
PrinlBd in U.S.A. 



"^^M21A. 



CARD ELECTRO NUMBER* 



1 ^ 



It 



.^ ^ |l-GRM)Ar LoU-j t ) I ' j 

latADj 1 0. 1 * M f < X I 1, . K Ip I 1| iN ) J I I I , 



' P r (XN S ATEMFNT 

i8_i J ,4 J 4 48 49*^0 5 5"Z^ 54'55 56 57"5B 59 60 6 1 62 63 64"6ir66 G7"68 69 70 7 1 72 



I ' [Li. I n-i J 

i -, 4 iD£) D I J ,/ „|V,( 

b] W J ) Hi 1 

I W 4.-' N ) 

, iii MJ ' (^ fa 

^ , . |Du J.(b I j. /V 



r 



I4 



-t^ 



Li 






I 1 
^ ^ I 

1 +^ t-H f Lj-^ -I- 

t T ^ 



f^I 



++^- 



t^rt 






^14 



- + 






i 



tiljXP 



-H 



-^4. 



L 4- 



7; 74 75 76 77 7S 79 6 



-i-l- 



-^t- 



A b IS -^ 



4 45 16 4 48 4 9 50 5 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 6B 69 7Q n 72 



7:1 74 75 /6 77 7a 79 E 



Figure 6 (Part 1 of 3). Sample Program 2 
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PROGROM e^ft;v,p , f PRnCRAH? 



PROGRAMMER 



FORTRAN Coding Form 

JPUNCMING [5'."*'^ 

JOATF jlNSTRUCTlONsTpLiNc; 



PrinlMJ in U.i.A 



IZEfi-. 



FORTRAN STATEMENT 

T'^' 5'ioiTi; i3i4T5T 6;rriB7i97a ;; ;; ;3^4^r56Tf?r?rsr3T^2"3T3 ii s^?r^"» wTi~<T'4TV<;"-iir4stj 4f 



I" ( i i j JCARD electronumbeh- 

.i L 1 i L ___. . 

" " T"Toei'jTificat7on" 



IH- 



> 48 4° V. !.i 5? SJ S4 5S E;6'f.7 58 5!^ 60 fil"fi7 6T M65 &t 67 68 b,9 ".'0 -i'~^li 74 75 76 TV'7fl75"30 




7 B 9 lO'l 12 1314 15 16 17 18 lii rn 21 2? 23?4 25 26 2 7 ?B 29 30 31 33'33 34^b 36 31 "38 39 4 4/4T4 3 4r4 C 46 4? 4'8'49 b O 61 1) 2 53 ^4 r>1> 56 5 ' >8 59 60 61 62 63 64 65 66 67 6fl 



Figure 6 (Part 2 of 3). Sample Program 2 




Figure 6 (Part 3 of 3). Sample Program 2 
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The elements of the W array, except W(1), are set equal to 
zero. W('i ) is set equal to IM. For each value of I, Xj and 
V, are selected. The powers of X, are computed and 
accumulated in the correct W counters The powers of Xj 
are multiplied by Y, .,(id the pioducts are accufiujlated iii 
the correct Z eouiiters. In order to save machine time 
when the object program is being run, tfie previously com- 
puted power of X, is used wiien computing the next pov.'er 
of Xj. Note that the use of variables as index parameters. 
By Ifie time coraroi has passe. I to statement 17, the counters 
are set as follows; 



By the time control passes to statement 23, the values of 



W„,W,, 



W2rn + i are placed in the storage locations 



corresponding to columns 1 through M+l, row 1 through 

Mrl, of the B array, and the values of Z^, Z, Z,„ 

have been stored in the locations corresponding to the 
columr; M+2 of the B array. For example, in the illustrative 
problem (M = 2), columns 1 through 4, rows 1 through 3, 
of the B array would be set to the following computed 
values: 



Wo 
W, 



w, 



W2 

W3 

Wa 



z, 
z. 



N 



W(3,' 



l-.J 
1 = 1 



Z 



^VO; N Z(1j > Y, 

11 

X| Z(2! 



■v — ^ 

> Y;Xi 



N 



ir-— ^ 



X,' z(3) / y,xr 

1-1 



This matrix represents equations (1 ), (2), and (3), the 
normal equatiorss for M==2, 

The forward solution, which results in equations (4), (7), 
and (8), is carried out by statements 23 through 31. By 
the time control passes to statement 33, the coefficients of 
the .Al terms in the M+1 equations, which would be ob- 
tained in manual calculations, have replaced the contents 
of the locations corresponding to columns 1 through M+l , 
rows 1 through M+1 , of the B array, and the constants on 
the right-hand side of the equations have replaced the con- 
tents of the locations corresponding to column M+2, rows 
1 through M+1 , of the B array. Columns 1 through 4, rows 
] through 3, of the B array are set to the following com- 
puted values: 



1 


b.2 


b,j 


bi4 





1 


C23 


C24 








C3i 


C34 



ZiMi i) 



n 

vV(2M + r)- ^ X,^''"'' 



z.^ 



Y.X 



M 



ri 



-1 



This matrix represents equations (4), (7), and (8). 

The backward solution, which results in equations (9), (10), 
and (1 1 ), is carried out by statements 33 through 40. By 
the time control passes to statement 41 , which prints the 
values of the A(l) terms, the M+1 values of the A(l) terms 
are stored in the M+1 locations for the A array. The A 
array would contain the following computed values for 82 , 
a, , and ao, respectively: 



Location 


Contents 


A(3) 


C3 4 /C3 3 


A(2) 


C2 4''C2 382 


A(1) 


b,4-b|2a| -b, 383 



The resulting values of the A(l) terms are then printed 
according to the FORMAT statement number 2, 
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Part 2. System/3 FORTRAN IV User's Guide 



This section contains: 

• Overview of FORTRAN processing 

• Compilation 

• Linkage editor processing 

• Load module execution 

• Job output 
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Chapter 12. Overview Of FORTRAN Processing 



A FORTRAN program is processed by the FORTRAN 
compiler under contioi of the IBM Svsiem/3 System Con- 
trol Proqrarr,. Tin FORTRAN cornpiier is a program that 
translates FORTRAN statements into instructions that can 
be understood and execuietl by the System/3. The system 
control progra.n is a program Ihat controls the operation 
of the Systeni/3. 

For you ro make the bust use of Systeni/3, you must know 
how to tell tlie System Control Program about your FOR- 
TRAN program, how to define FORTRAN tiles, uiid what 
kind gI- output to expect. Tins introductory section sum- 
marizes l:>asic inforrnaiion you need in order ro uj!' System/ 
3. Tnis section briefly describes; 



1. 



3. 

4. 



how d FOR rr-^AN pro'.jram is rirocessed. 

Communicating with Sysiem/S through operation 
coiitrol language (OCL!, 

Program output. 

Denning FORTRAN files and other files needed by 
System,'3. 



HOW A FORTRAN PROGRAIVl IS PROCESSED 

Before your FORTRAN proyr..,m can be executed, it must 
be coHi/erted Into a form that can be understood by 
System/3. The compiler converts the program. The linkage 
editor combines the program with whaiever other programs 
are required to form an e.xeciaable unit. For example, if 
your program uses the SQR F library function, the linkage 
editor retrieves SORT from the FORTRAN library of sub- 
programs and joins it with yojr program. 



The three steps that must be taken to convert and execute 
a FORTRAN program are compilation, link-editing, and 
load module execution. The FORTRAN source program 
is the input to the compilation step. The output is the 
group of translated statements, called an object module, 
which becomes the input to the link-edit step, (Other 
terms used to describe the object module are routine and 
nonexecutable object program; sisie use the term object 
module throughout this publication.) The output of the 
link-editing step is the object module combined with other 
modules to form a load module, or object program (we use 
the term load module). The load module is the program 
executed in the load module execution step. 

Although these three steps must be taken in sequence to 
execute a program, it is not necessary that they occur at 
one time. For example, you can choose the compilation 
step only, with the other steps to follow at a later time. 
Assume that you have coded a particularly connplex FOR- 
TRAN program. The first time you submit it, you might 
only compile it, so that you can correct any source program 
errors. The compiler examines each FORTRAN statement 
for correct syntax and issues error messages for FORTRAN 
language violations. After correcting these errors you 
could have the program compiled, link-edited, and executed 
at one time. Further assume that you intend to use the 
program many times. Once the program is successfully 
compiled, it would be pointless for you to compile it every 
time you use it. You could choose to store the compiled 
object module in a file of object modules, called an object 
library. Then, each time you want to execute the program, 
you could tell the System/3 to bypass the compile step 
and use the object module as its input. These are some of 
the alternatives you have when executing your program. 
You tell the system which alternatives to select through 
use of the operation control language statements. 
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Using FORTRAN consists of the general operations illus- 
trated in Figure 7: 

1. Define tlie job. Tlie programmer defines the job re- 
quirements for the specific task. Usually, the follow- 
ing questions must be answered when the job is 
defined: 

a. What information is provided as input to the 
program? 

b. What calculations are to be performed? 

c. What output information should be generated by 
the program? 

2. Write the source program. After the programmer de- 
fines the job, he or she develops the FORTRAN 
source program. 

3. Record the source statements on disk or cards, After 
the source program is written, it is recorded on 
punched cards or entered into the system from the 
keyboard. 

4. Compile the source statements. The source program, 
preceded by the required OCL statements, is proces- 
sed by the FORTRAN IV compiler under control of 
the system control program. At the end of this 
processing (compilation), the object program is 
stored as an R module in the object library on disk 
or punched on cards. This program contains all the 
instructions required to perform the job. 

5. Link-edit the object program. The object program is 
processed by the Linkage Editor under control of the 
System Control Program. This is done to resolve all 
addresses and external references. At the end of this 
processing (link-editing), the load module is stored 
as an module in the object library on disk or 
punched on cards. The program is now ready to be 
executed. 

6. Execute the program. The load module is read from 
disk or cards; then the input and output are processed 
by the system under control of the FORTRAN 
program. 
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1 . Define the job. 



Job Requirements 

b. Caiculations 

c. Oulput 



2. Write source program. 



3. Record source statements on disk, 
diskette, or cards. 



4. Compile the source statements. 
The resulting object program is 
recorded on disk, diskette, or 
cards. 



5. Link-edit the object program. 
The resulting load module is 
recorded on disk, diskette, or 
cards. 



Execute the program. The 
load module is read from 
disk, diskette, or cards; then 
the input and output are 
processed by the system 
Uiider control of the 
FORTRAN program. 



Input Data 

Disk 

Cards 

Tape 




FORTRAN IV 
compiler on disk. 



Linkage editor 
program on disk. 



Iain Storage 



Console (Models 10 and ^2)*■ 
Keyboard (Model 15) 




Output Data 

•-Printer 

Disk 

Cards 

Tape 

Console (Model 10) 
^CRT (Model 15) 



Figure?. Processing a FORTRAN Program 
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USING OPERATION CONTROL LANGUAGE (OCL) 

Operation control language (OCL) is your means of com- 
municating with IBM System/3. You must write a set of 
OCL statements for each program you want to run. OCL 
statements describe the program to the system, which reads 
the SOI of OCL statements and runs the program. When the 
program ends, the system reads the next set of OCL state- 
ments, runs the program it describes, and repeats the proce- 
dure until all OCL statements and programs have been run. 

OCL statements that are essential in running a FORTRAN 
program are LOAD, FILE, and RUN. 

A complete description of all OCL statements can be found 
in the applicable system control programming reference 
manuals. Refer to Related Publications for the order 
number. 



A program submitted for compilation, link-editing, and 
execution might be arranged as follows; 

//L0AD$F0RT,F1 

//FILE NAME-$WORK . .. 

//FILE NAIV1E-$S0URCE . . . 

//RUN 

*PROCESS LINK 

FORTRAN source program 

/* 

//LOAD ABC,F1 

// FILE (statement for load module, if any) 

//RUN 

Input data cards, if any 

/* 

Some OCL statements are used on a recurring basis, such as 
the LOAD $FORT and the FILE statements for $WORK 
and $SOURCE. To avoid receding these statements every 
time they are to be used, they can be stored as sets in a 
source library. These sets are called procedures. A com- 
plete discussion of procedures can be found in the previous- 
ly mentioned reference manuals. 



IBM System/S FORTRAN-Supplied Procedures 

IBM supplies a number of procedures for use with System/3 
FORTRAN. Figure 8 describes the procedures used for 
compiling, link-editing, and executing FORTRAN programs. 

Note: The Model 15 also allows $WORK and SSOURCE 
files on 5445 or 3340 Disk Storage. The user must change 
the procedures if he wants to use 5445 or 3340 for 
$WORK and SSOURCE. See Optimum Assignment of 
$WORKand SSOURCE Work Files in Chapter 20, 
System Considerations. 
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Figure 8. System/3 FORTRAN-Supplied Procedures 
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Libraries 

Each disk can contain a source library and an object library. 
Although both libraries can be located anywhere on a disk, 
the source library always immediately precedes the object 
library. 

The source library is an area for storing OCL procedures 
and FORTRAN source programs. OCL procedures or 
programs are added to a source library using the Library 
Maintenance utility program. Programs may be compiled 
from the source library by using the COMPI LE 
statement. (Referto the description of the COMPILE 
statement in the applicable system control programming 
reference manual.) (Utility programs are described in 
the applicable system control programming reference 
manual. Refer to Related Publications for the order 
number.) 

The object library is an area for storing object modules and 
load modules. FORTRAN modules are stored by requesting 
the OBJECT parameter (for an object module) or the LINK 
parameter (for a load module) on the *PROCESS compiler 
option statement, used exclusively in FORTRAN processing. 
This statement is described in greater detail in Chapter 13, 
Compilation. 



DEFINING FILES 

Files are collections of records, such as an object module, a 
library of subprograms, a source program, or a data card 
deck. 



Files Needed by the Compiler and Linkage Editor 

The compiler needs the file named $WORK to store the 
object module if the linkage editor is called to process any 
of the compiler options DECK, GODECK, OBJECT, or 
LINK. The linkage editor needs the two files named 
$WORKand$SOURCE. 

For information about the assignment of $WORK and 
$SOURCE, see Optimum Assignment of$WORK and 
$SOURCE Work Files in Chapter 20, System Considerations. 



Files Needed by the FORTRAN Load Module 

The FORTRAN load module uses files only if it includes 
input/output statements or calls to any I/O commercial 
subroutines. Commercial subroutines are described in the 
publication IBM System/3 FORTRAN IV Commerical 
Subroutines, SC28-6875. 



COMPILER, LINKAGE EDITOR, AND LOAD MODULE 
OUTPUT 

In addition to object and load modules, the compiler and 
linkage editor produce other forms of output that help 
you analyze the job. The compiler informs you of the 
success of the compilation by issuing messages, including 
a severity code for any error encountered. The severity 
code indicates whether the compilation was entirely or 
partially successful. An unsuccessful compilation results 
in no object module being produced. 

The compiler can also produce output [n the form of a 
storage map that lists the names and storage locations of 
variables and statement numbers in the object module. 



Defining FORTRAN Files at Compilation Time 

Device option statements are used to tell the compiler which 
files and devices to use. The compiler uses the information 
in the device option statements to allocate buffer space and 
data management control blocks to the files. The compiler 
sets up a table of logical unit numbers, which contains an 
entry for each device or file that is specified. Up to a max- 
imum of 40 files can be specified at compile time. 

For more information about device option statements, see 
Compiler Option Statements in Chapter 13, Compilation. 



The link-editing step can produce, in addition to a load 
module, a core usage map that shows the location of the 
modules in the load module, a card deck of the object or 
load module, and a cataloged entry of the object or load 
module on disk.' 

Load module execution produces the program, output that 
you request in the source program. 
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Defining FORTRAN Files at Execution Time 

OCL FILE statements are used to define disk or tape files 
at execution time. As with any FILE statement, you must 
specify tine file name, the file size, and the disk or tape unit. 

FORTRAN file names are assigned in the form FTnnnnn 
where nnnnn is the logical unit number that is specified on 
the device option statement. The following shows the rela- 
tionship between the FORTRAN logical unit number and 
file definition: 



FORTRAN Logical 
Unit Number 



File Definition at 
Compilation Time: 



File Definition at 
Execution Time: 



FORTRAN 
input/output statement 



Device option 
statement 



FILE statement, if file 
is on disk or tape. 



Examples: 

1 . Defining a card file: 
READ(1,100)A 



// READ DEVICE-MFCU1 



None 



2. Defining a disk file: 
DEFINE FILE 15 
(50,25, L,ID) 
WRITE(15'5,100)B 



//DAD44 UNITNO-15 



// FILE NAI\/IE-FT00015 



Logical Unit Numbers 

You refer to a file by coding its logical unit number in the 
FORTRAN input/output statement. For example, the 
following READ statement refers to a file having logical 
unit number 5: 

READ (5,f)iist 

Logical unit numbers are assigned to System/3 devices used 
in FORTRAN processing. Figure 9 lists these assignments, 
if your program reads input data from a card reader in a 
System/3 Model 10 installation, the logical unit number 
that must be coded in the READ statement is 1 for the 
primary hopper of the MFCU device, 2 for the secondary 
hopper, 5 for the 5471 printer/keyboard, or 9 for the 1442 
card read punch. Each logical unit number can be assigned 
to only one file in a program; for example, if logical unit 
number 1 is used to define the MFCU1 , it cannot be used 
to define a disk file. 

To make the proper link between the logical unit numbers 
in the FORTRAN program and the devices used by 
System/3, you must define your files at compilation time 
and, for tape and disk files, at load module execution time 
as well. 
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Device 



t-unction 



Logical Unit 
IMumber 



iVlodel 10 Installation: 

5424 MFCU primary hopper 
(MFCUD 

5424 MFCU secondary ho|)[)(;r 
iMFCU2) 

5203 or 1403 printer 

54 1 1 printer /keyboarci 

5471 printer/keyboard 

1442 card read |)unch 

3410/3411 magnetic ta|)e0 

5444 disk 



54 4 L. disk 



IVlodel 6 Installation; 

5106 console keyboaid 
5496 data recorder 
5213 or 2222 punter 
5444 disk 



Read 

Read/punch/pri 

Print 
Read 
Print 



nt® 



Read/punch 



(T) 



Rearl/wnie sequential formatted 
and Linformatted records 

Read/write secinennal and direct- 
a':cess lorinaltifd and unformatted 
records 

Read/write sequential and direct- 
access toi matted and unformatted 
records 



Read card images 

Read/punch® 

Print 

Read/write sequential and direct- 
access foi matted and unformatted 
records 



n® 



2 
3 

n® 



(i) Model 10 ,i^i|_)poils only one file per tape volume. 

® Can tje any number troiii 1 to 32767 that is not used in the source program to 
define another device. 

@ Cannot be specified as both an input and output device when using FORTRAN 
READ and WRITE statements. (Can be both an input and output device when 
using the FORTRAN commercial subroutines.) 



Figure 9 (Part 1 of 3). Logical Unit Number Assignment 
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Device 


Function 








Logical Unit 
Number 


Model 12 Installation: 












5424 MFCU primary hopper 
(MFCU1) 


Read 








1 


5424 MFCU secondary hopper 
(MFCU2) 


Read/punch/print ^ 








2 


5203 or 1403 printer 


Print 








3 


5471 printer/l<eyboard 


Read 








5 


5471 printer/keyboard 


Print 








6 


1442 card read punch 


Read/punch ^ 








9 


3410/3411 magnetic tape® 


Read/write sequential formatted 
and unformatted records 




n® 


3340 direct access storage 
facility 


Read/write sequential 
access formatted and i 


and direct- 
jnformatted 




n® 




records 










Model 12 supports only one fil 


e per tape volume. 










© Can be any number from 1 to 32767 that is not used ir 
define another device. 


the source 


orogram to 


Cannot be specified as both an input and output device 
READ and WRITE statements. (Can be both an input 
using the FORTRAN commercial subroutines.) 


when 
and OL 


using FORTRAN 
tput device when 



Figure 9 (Part 2 of 3). Logical Unit Number Assignment 
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Device 


Function 






Logical Unit 
Number 


Model 15 Installation: 










5424 MFCU primary hopper 

(mfcudO 


Read 






1 


5424 MFCU secondary hopper 
(IV1FCU2)© 


Read/punch/print ® 






2 


2560 MFCM primary hopper 
(MFCMD® 


Read 






1 


2560 MFCM secondary hopper 
(MFCM2)© 


Read/punch/print® 






2 


1403 printer 


Print 






3 


3284 printer 


Print 






4 


3277 display station 


Read 






5 


3277 display station 


Print 






6 


3741 data station or pro- 
grammable work station^ 


© 
Read/punch 






7 


2501 card reader 


Read 






8 


1442 card read punch 


Read/punch® 






9 


3410/3411 magnetic tape® 


Read/write sequential formatted 
and unformatted records 


n® 


5444 disl< ® 


Read/write sequential 
access formatted and 
records 


and direct 
jnformatted 


n® 


5445 disk® 


Read/write sequential 
access formatted and 
records 


and direct 
jnformatted 


n® 


© 5424 and 2560 are mutually exclusive. 








@ Can be any number from 1 to 32767 that is not used ir 
define another device. 


the 


source 


program to 


® Cannot be specified as both an input and output device 
READ and WRITE statements. (Can be both an input 
using the FORTRAIM commercial subroutines.) 


when using 
and output 


FORTRAN 
device when 


® Model 15 supports multifile ta 


3e volumes. 








@ For Model 15, if system config 
located on the 3340. 


uration has 3340 disk storage 


, these 


files will be 


©Supported on 5704-FO2 only. 
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Chapter 13. Compilation 



COMPILER OPTION STATEMENTS 

Compiler option statements provide control information to 
the compiler. They follow the OCL RUN statement and 
are interpreted by the initial compiler phase after the OCL 
statements are read. 

Most of the compiler option statements are coded in the 
same manner as OCL statements. Compiler option state- 
ments consist of: 

• Device option statements 

• The CORE statement 

• The CATEGORY statement 

• The ^PROCESS statement 

Device option statements are used by the compiler to 
define input/output devices used at execution time. To 
continue these statements, place a comma after each option 
in every card or line except the last option. Begin each new 
card or line with a // in positions 1 and 2. Leave one or 
more blanks between the // and the first option in the card 
or line. 



Example: 

II DAD44 UNITNO-'10,12,14', 
// BLOCKSIZE-'256,512,768' 

READ, PRINT, and PUNCH device option statements con- 
tain all the information necessary to make such devices 
available at execution time. Device option statements for 
disk and tape files (SEQ40, SE044, SEQ45, DAD40, 
DAD44, DAD45, and TAPE) require corresponding FILE 
statements at execution time to complete the file definition. 

The CORE and CATEGORY statements cannot be con- 
tinued. However, to continue the *PROCESS statement, 
place a comma after each option in every card or line 
except the last option. Begin each new card or line with a 
nonzero or nonblank character in position 6. 

Example: 

*PROCESS MAP,GOSTMT,DECK, 
1G0DECK 



Compiler option statements can be specified in any order 
except that the *PROCESS statement, if used, must be the 
last card before the FORTRAN source program. The 
♦ PROCESS statement can be specified for subprograms and 
main programs; the CATEGORY statement for subprograms 
only; and the other statements for main programs only. 

The formats and uses of the compiler option statements are 
identical for all Models. The compiler option statements 
are described in Figure 10. 



Statement 


Function 


Device option sta 


tements: 


//READ 


Specifies the input device used at execu- 




tion time. 


//PRINT 


Specifies the printer(s) used at execution 




time. 


//NOPRINTER 


Specifies that no printer is to be used at 




execution time. 


//PUNCH 


Specifies the card punch used at execu- 




tion time. 


// DAD40 © 




// DAD44 


Specifies direct-access files, used at 


// DAD45 © 


execution time. 


// SEQ40 © 




//SEQ44 
//SEQ45'^ 


Specifies sequential files used at execu- 


tion time. 


//TAPE® 


Specifies tape files used at execution 




time. 


//CORE 


Specifies the amount of storage to be 




used by the load module. The linkage 




editor uses this value to create the load 




module. 


//CATEGORY 


Specifies a priority permitting a subpro- 




gram to remain in main storage in an 




overlay environment. 


^PROCESS 


Specifies compiler options. 


© Does not app 


y to Model 6. 


© For Model 12 


and Model 15 only. 


Note: A maxim 


urn of 40 tape and disk file;; can be 


specified. 





Figure 10. Compiler Option Statements 
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READ Device Option Statement 

The format of this statement is: 

// READ DEVICE-' device,device device', 

RECL-nn© 

where 

device is any of the following: 

For ModellO-MFCUl, MFCU2, 5471, 1442, MFCU1*. 

For Model 6-5406, 5496. 

For Model 12-MFCU1, MFCU2, 5471, 1442, MFCU1*. 

For Model 15-MFCU1, MFCU1*, MFCU2, MFCU2*, 
MFCM1, MFCM1*, MFCM2, MFCM2*, 3277, 3277S,' 
1442, 1442*, 2501, 2501*, 3741® 3741*© 



The asterisk following a device indicates one buffer is 
requested. The default is two buffers. You cannot 
specify both MFCU1, MFCU1* in one program. If this 
occurs by error, MFCU1 *(one buffer) overrides MFCU1 
(two buffers). This information applies to all other 
devices that allow the *indication. (See Model 15 
Double Buffering for Card Devices in Chapter 20, 
System Considerations. ) 

The S following 3277 indicates that split screen support 
is requested. (See Model 15 CRT/Keyboard Support in 
Chapter 20.) 

If only one device is selected, the enclosing apostrophes 
can be omitted. 

RECL-nn specifies the number (nn) of bytes in a logical 
3741 record. This number must be from 1 through 128. 
The parameter must be coded if the 3741 was specified 
as a device. If the parameter is coded and the 3741 is 
not specified, an OPTIONS ERROR will be set. 



Example: 

II READ DEVICE-5471 

The example states that the 5471 will be used as a read 
device. 



// READ DEVICE-'2501,3741',RECL-96 

This example states that the 2501 and the 3741 will be used 
as read devices. Both devices will use two buffers and the 
logical record length for the 3741 is 96 bytes. 

PRINT and NOPRINTER Device Option Statements 

The format of the PRINT statement is: 

// PRINT DEVICE-'device,device device' 

where 

device is any of the following: 

For Model 10-5203, 5471, MFCU2, or 1403. If you do 
not use a PRINT or NOPRINTER statement, the 5203 
printer is assumed. The MFCU2 is a card punch and is 
specified on the PRINT device option statement when 
printing is to appear on the card. 

For Model 6-5213 or 2222. The default is the 5213. 

For Model 12-5203, 5471, MFCU2or 1403. If you do 
not use a PRINT or NOPRINTER statement, the 5203 
printer is assumed. The MFCU2 is a card punch and is 
specified on the PRINT device option statement when 
printing is to appear on the card. 

For Model 15-1403, 1403D, 3284, MFCU2*, MFCU2, 
MFCM2*, MFCM2, 3277, 3277S: 

If you do not use a PRINT or NOPRINTER statement, 
the 1403 printer is assumed. Both the MFCU2 and 
MFCM2 are card punches and are specified on the PRINT 
device option statement when printing is to appear 
on the card. 

The D following 1403 indicates the deferred 
print option. (1403D changes the FORTRAN 
language space before commands to a deferred 
space after command.) 

The asterisk for MFCU2 and MFCM2 indi- 
cates one buffer for that device. (See Model 
15 Double Buffering for Card Devices in 
Chapter 20, System Considerations. ) To 
maintain the same performance level, two 
buffers should be used, because MFCU2 print 
uses two buffers for Model 10. 

Enclosing apostrophes can be omitted if only one device 
is selected. 
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FORTRAN Error Logging Device 

For Model 6, the FORTRAN error logging device is the 
printer specified. 

For Models 10 and 12, the FORTRAN error logging device 
is designated to the first printer specified in the printer 
list. The possible devices are the 5471, 5203, and the 1403. 

For Model 15, the FORTRAN error logging device is desig- 
nated to the first printer specified in the printer list. The 
possible devices are the 1403 and the 3284. 

Output fronn execution of a STOP n statement, DUMP or 
PDUMP subprograms, DEBUG statement, or error trace- 
back is directed to the FORTRAN error logging device. 

Output from execution of a PAUSE statement on the 
Models 6 and 10 is directed to the FORTRAN error logging 
device. For Models 12 and 15, this output is directed to 
the system log device if it is available; if the system log 
device is not available, the output is displayed. 



Example: 

II PRINT DEVICE-'5203,MFCU2' 

The example states that two printer devices, the 5203 and 
the MFCU2, are to be used. 

The PRINT statement is always assumed by default; 
therefore, to avoid the default, you must specify the 
NOPRINTER statement, as follows: 

// NOPRINTER 

No attempt should be made to execute statements that 
require printer output if the NOPRINTER statement is 
specified. 

PUNCH Device Option Statement 

The format of the PUNCH statement is: 

// PUNCH DEVICE-'device,device',RECL-nn*^' 

where 

device is any of the following: 
For Model 10-MFCU2, 1442 
For Model 6-5496 



For Model 12-MFCU2, 1442 



For Model 15-MFCU2, MFCU2* 
1442, 1442*, 3741®, 3741*® 



irCM2, MFCM2* 



The asterisk following a device indicates one buffer is 
requested. The default is two buffers. You cannot 
specify a device to have both one and two buffers in 
one program. If this occurs by error, one buffer over- 
rides two buffers. (See IVIodel 15 Double Buffering for 
Card Devices in Chapter 20, System Considerations.) 

If only one device is specified, the enclosing apostrophes 
can be omitted. 

RECL-nn specifies the number (nn) of bytes in a logical 
3741 record. This number must be from 1 through 128. 
The parameter must be coded if the 3741 was specified 
as a device. If the parameter is coded and the 3741 is 
not specified, an OPTIONS ERROR will be set. 



Example: 

II PUNCH DEVICE-5496 

The example states that the 5496 will be used as a punch 
device. 

// PUNCH DEVICE-3741*,RECL-80 

This example states that the 3741 will be used as a punch 
device. One buffer is requested and the logical record length 
is 80 bytes. 

DAD40, DAD44, and DAD45 Device Option Statements 



// DAD44 UNITNO-'unit,unit unit', 

// BLOCKSIZE-'block, block, block', 

// BUFFERS-'number, number, . . . .number' 

// CLEAR-'Y,N Y', 

// UPDATE-'Y,N N' 



where 

DAD44 indicates a direct-access file on the 5444 device 







For 5704-FO2 only. 
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UNITNO is used to specify the logical unit number (unit). 
This number is used in the associated I/O statements to 
refer this file. A corresponding FILE statement using 
this number in the NAME parameter must be submitted 
at execution time. The enclosing apostrophes can be 
omitted if only one number is specified. 

BLOCKSIZE is used to specify the size of the block of 
records to be transmitted for each corresponding file. 
This value (block) must be 256 or a multiple of 256 (for 
example, 512 or 1024). The enclosing apostrophes can 
be omitted if only one block is specified. If this param- 
eter is not specified, a default value is calculated using 
the record size from the DEFINE FILE statement. (See 
index entry buffers. ) I/O time can be decreased by 
specifying as large a block as possible. (See Chapter 1 7, 
Direct-Access Programming Considerations.) 

BUFFERS is used to specify the number of buffers to be 
used for the corresponding file. This number can be 1 or 
2. If this parameter is not specified, the default value is 
1. When sharing buffers only 1 buffer can be specified. 
I/O time can be decreased w/hen two buffers are assigned 
for each file and the File is accessed sequentially. (See 
Chapter 17, Direct-Access Programming Considerations.) 
The enclosing apostrophes can be omitted if only one 
number is specified. 

CLEAR (Model 1 5 only) is used to request (Y) or 
prohibit (N) clearing a new direct-access file. If this 
parameter is omitted, the default is (Y) for each 
corresponding file. I/O time is decreased if clearing is 
prohibited when creating files, but the user is responsible 
for formatting the disk space and ensuring that all 
records are valid. Enclosing apostrophes can be omitted 
if only one option is specified. 

UPDATE is used to request input with update (Y) or 
input only (N) access to a direct-access file. If this param- 
eter is omitted, the default is (Y) for each corresponding 
file. The parameter is not used when creating a new file. 
If two programs in two partitions or an interrupted 
(rolled out) program and an inquiry program access the 
same file, at least one of the programs must specify 
UPDATE-N.Ci) The enclosing apostrophes can be omitted 
if only one option is specified. 



Example: 



The example states that unit numbers 1 5 and 20 are referred 
to as direct-access files. The size of the block of records for 
file 1 5 is 256 and for file 20 is 51 2. One buffer is allocated 
for file 1 5 and two buffers for file 20. At execution time, 
files named FT0001 5 and FT00020 must be defined on 
FILE statements. 

The DAD45 statement is the same as the DAD44 except 
that it indicates a direct-access file on the 5445 device. 

// DAD45 UNITNO-'unit,unit ,unit', 

// BLOCKSIZE-'block,block, block', 

// BUFFERS-'number, number, . . . , number', 

// CLEAR-'Y,N, Y', 

// UPDATE-'Y,N N' 

As on the DAD44 statement, the CLEAR parameter is for 
the Model 15 only. 

The DAD40 statement is the same as the DAD44 except 
that it indicates a direct-access file in the main data area on 
the 3340 Direct Access Storage Facility. Only the Model 12 
and Model 15 use the DAD40 statement. 

// DAD40 UNITNO-'unit,unit unit', 

// BLOCKSIZE-'block,block block', 

// BUFFERS-'number.number number', 

// CLEAR-'Y,N Y', 

// UPDATE-'Y,N N' 

The CLEAR parameter is only for the Model 15. 



SEQ40, SEQ44, and SEQ45 Device Option Statements 



// SEQ44 UNITNO-'unit, 
// BLOCKSIZE-'block, . . 



. . ,unit', 
, block' 



where 



SEQ44 indicates a sequential file on the 5444 device. 

UNITNO is used to specify the logical unit number (unit). 
This number is used in the associated I/O statements to 
refer to this file. A corresponding FILE statement using 
this number in the NAME parameter must be submitted 
at execution time. The enclosing apostrophes can be 
omitted if only one number is specified. 



// DAD44 UNITNO-'15,20',BLOCKSIZE-'256,512', 
// BUFFERS-'1,2,' 



(j)This restriction does not apply to 5704-FO2. 
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BLOCKSIZE is the size of the block containing a record 
to be transmitted for each corresponding file. A 
BLOCKSIZE must be specified for each unit given in 
the UN UNO parameter. The value of block must be 
256, 128, 64, 32, or 16. The enclosing apostrophes can 
be omitted if only one block is specified. For best I/O 
performance, and most efficient use of disk space, 
specify a block size as the smallest submultiple of 256 
that is equal to or larger than your file's record size. 
(See Chapter 1 8, Sequential Disk and Tape Programming 
Considera tions. ) 



Example: 

II SEQ44 UNITNO-'14,15',BLOCKSIZE-'256,256' 

The example states that unit numbers 1 4 and 1 5 are to be 
referred to as sequential files on the 5444. Files named 
FT00014 and FT00015 must be defined on FILE state- 
ments at execution time. 
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The SEQ45 statement is the same as the SEQ44 statement, 
except that it indicates a sequential file on the 5445 device. 

// SEQ45 UNITNO-'unit unit', 

// BLOCKSIZE-'block, . . . , block' 

The SEQ40 statement is the same as the SEQ44 statement 
except that it indicates a sequential file in the main data 
area on the 3340 Direct Access Storage Facility. Only the 
Model 12 and Model 15 use the SEQ40 statement. 

// SEQ40 UNITNO-'unit,unit unit', 

// BLOCKSIZE-'block,block block 



TAPE Device Option Statement 

// TAPE UNITNO-'unit unit', 

// BLOCKSIZE-'block block' 
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Note (Model 15 only): If records are being transmitted to 
or from a tape drive using multifile tape volumec, the OCL 
FILE statement must specify the file's sequence number 
(SEQNUM). A further description of multifile tape volumes 
can be found in IBM System/3 Model 15 System Control 
Programming Reference Manual, GC2 1-5077. 



CORE Statement 

The CORE statement specifies how much main storage is 
required for the load module at execution time. This value 
is passed to the linkage editor for a main program to be link- 
edited immediately following compilation (the LINK 
compiler option was specified). If you do not include a 
CORE statement, the default is the actual size of the 
program. 

The format of the statement is: 



where 



// CORE SIZE-annK 



UNITNO is used to specify the logical unit number (unit). 
This number is used in the associated I/O statements to 
refer to this file. A corresponding FILE statement using 
this number in the NAME parameter must be submitted 
at execution time. The enclosing apostrophes can be 
omitted if only one number is specified. 

BLOCKSIZE is used to define the record length for 
each corresponding file. A BLOCKSIZE must be 
specified for each unit given in the UNITNO parameter. 
The value oi block must be a number between 18 and 
32767. The enclosing apostrophes can be omitted if 
only one block is specified. The System/3 BLOCKSIZE 
parameter must be equal to or greater than the logical 
record length for formatted I/O. (See Chapter 18, 
Sequential Disk and Tape Programming Considerations.) 



Example: 

II TAPE UNITNO-10,BLOCKSIZE-512 

The example states that unit number 10 on a magnetic 
tape device has a record length of 512 bytes. 

The file named FT00010 must be defined on a FILE (tape) 
statement at execution time. 



where 



SIZE-annK indicates the amount of storage required: 

nnK represents a number multiplied by K (1024 bytes). 
For example, 05K indicates 5K, or 5120 bytes. 

a indicates an additional fractional K; it is given one of 
the values; O (additional quarter K), H (additional half 
K), T (additional three-quarter K), or (no additional 
K). For example, Q indicates an additional 1/4K or 256 
bytes. 



Example: 

II CORESIZE-H10K 

The example states that 10K bytes, plus an additional 1/2K 
(512 bytes), are to be allocated. 

Note: For program 5704-FO2 only, when main storage 
size is specified by the CORE statement, external buffer 
storage space is not included. External buffers, when 
specified in the *PROCESS statement, are allocated outside 
of the specified CORE space but within the partition. 
External buffer storage requirements are listed in the 
overlay linkage editor map for main programs. 
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CATEGORY Statement 

The CATEGORY statement specifies a category value for a 
FORTRAN subprogram. The category value is used by the 
linkage editor to determine the priority of the subprogram 
for remaining in main storage in an overlay environment. 

The value is specified as a number between and 128, the 
lower the number the greater the priority. 

A category value of means that the subprogram will never 
be overlaid. Category values 1-7 are used by system modules 
and modules in the FORTRAN library. If no category is 
specified for a program, its value is assumed to be 20. 

The format of the statement is: 

// CATEGORY VALUE-m 

where 

VALUE-m indicates the category value, through 128. 

Example: 

II CATEGORY VALUE-15 

The example states that the FORTRAN subprogram has a 
priority of 15; only programs having a value through 14 
would have a higher priority. 



The *PROCESS statement appears in the input stream as 
the last compiler option statement before the FORTRAN 
source program. Keep in mind that the »PROCESS 
statement is more closely related to compiler processing 
than the other statements discussed here. The other state- 
ments specify information regarding operations to be 
performed at later stages of processing, but the ^PROCESS 
statement specifies options directly related to compiler 
operations. 

The statement must start in column one; column 72 is the 
last usable column for the statement. Continuation lines 
can be used. (See Continuing FORTRAN Statements in 
Chapter 1.) 

The format of the statement is; 

♦PROCESS option,option, . . . .option 

where 

option is one of the ♦PROCESS options summarized in 
Figure 11. In that figure, defaults are underlined and 
need not be specified if you want the default values to 
apply. Options can be specified in any order. Blanks 
can be inserted between options but not within an 
option. 



»PROCESS Statement 

The ♦PROCESS statement allows the user to specify which 
actions the compiler is to perform. For example, by select- 
ing the SOURCE option, you request the compiler to print 
a listing of the source program; by selecting the DECK option, 
you request the compiler to call the linkage editor to punch 
a card deck of the object module. 
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Option 



SOURCE 
NOSOURCE 



Meaning 



Whether the source program Input is 
to be printed. 



Remarks 



MAP 
NOMAP 



DECK 
NODECK 



GOSTMT 
NOGOSTIVIT 



EBCDIC 
BCD 



NOGODECK 
GODECK 



NOSHRBUFF 
SHRBUFF 



Whether the relative addresses assigned 
by the compiler to source program 
data items are to be printed, and 
whether the addresses assigned by the 
linkage editor to the load module are 
to be printed. 

A relative address is the location of 
the data item calculated from the 
beginning of the program code. The 
compiler icplaces each data item 
name with its relative address. (At 
execution time, branches are made to 
relative addresses rather than to 
names.) 



MAP causes the linkage editor to perform 
extra time-consuming operations necessary 
to generate a storage map. Therefore, if 
the linkage editor is to be executed, MAP 
should be specified only if processing 
time is not critical. 



Whether the object module is to be 
punched by the linkage editor. 



Whether diagnostic traceback 
messages issued at execution time 
are to contain the internal statement 
numbers assigned by the compiler. 

An internal statement number (iSN) 
is assigned to each source program 
statement for identification. ISNs 
are assigned in ascending order 
beginning with 1 for the first 
statement, 2 for the second state- 
ment, etc. 



Whether the source program was 
coded in EBCDIC (Extended 
Binary Coded Decimal Interchange 
Code) or in BCD (Binary Coded 
Decimal). 



Whether the load mooule is to be 
punched. 



Whether a buffer is to be shared 
between two or more direct-access 
5444, 5445, or 3340 files. 

NOSHRBUFF must be specified if: 
two buffers are specified for any 
direct-access file in a program, ov 
EXTBUF is specified for DAD fiies 
(Program Number 5704-FO2 only). 

Note. It you specify on.; oi both 
of the above with the SHRBUFF 
option, the program defaults to the 
NOSHRBUFF option. 



If DECK is specified, the $SOURCE and 
$WORK fiies are required. 



If the input deck contains both BCD and 
EBCDIC, specify BCD. 



Can be used with main piograms only. 

If GODECK is specified, the SSGURCE 
and $WORK files are '■equired. 



Can be used with main p>-ograms only. 
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Option 



NOOBJECT 

OBJECT (T,LIB (unit)) 

P 

R 



NOLINK 
LINK( T,LIB(unit)) 

P 

R 



Meaning 



Whether an object module Is to be 
stored in the object library maintained 
by the system. 

T means the object module is tempo- 
rary. P means that it is permanent. 
R means that it is to replace the 
existing module by the same name. 

Unit indicates where the object library 
resides, specified as one of the codes: 
R1— removable disk, drive 1 
F1— fixed disk, drive 1 
R2— removable disk, drive 2 
F2— fixed disk, drive 2 

if LIB(unit) is not specified, the 
library resides on the program 
pack, that is, the pack indicated in 
the unit parameter of the LOAD 
statement calling the compiler. 

The default value for the OBJECT 
option is NOOBJECT for a main 
program, and OBJECT (program 
pack) for a subprogram. 

Whether a load module is to be 
stored into the object library main- 
tained by the system. 

T means that the load module is 

temporary. 

P means that it is permanent. 

R means that it is to replace the 

existing module by the same name. 

Unit indicates where the load module 
is to be stored, using the same codes 
as specified in the OBJECT option. 

If LIB(unit) is not specified, the 
load module resides on the program 
pack. 

The default value is LINK(program 
pack) for a main program (cannot 
be specified for a subprogram). 



Remarks 



If OBJECT is specified, the SSOURCE and 
$WORK files are required. 



May be used with main programs only. 
If LINK is specified, the $SOURCE and 
$WORK files are required. 



Figure 11 (Part 2 of 3). *PROCESS Statement Options 
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Option 


Meaning 


Remarks 








UPACK-unit 
(Models 12 and 
IBonly) 


The pack where user routines to be 
link-edited can be found. The overlay 
linkage editor searches this pack first 
when resolving EXTRNs to modules 
whose names do not begin with $. If 
the EXTRN name is not found on this 
pack, the program pack is searched. 

Unit indicates the pack to be searched 
first. The following codes apply: 
R1— removable disk, drive 1 
F1— fixed disk, drive 1 
R2— removable disk, drive 2 
F2— fixed disk, drive 2 

If the option is not coded, the program 
pack will be the only pack searched. 


Can be used with main programs only. 


EXTBUF 
NOEXTBUF 
(Program Number 
5704-FO2only) 


Whether DAD files only (DAD40, 
DAD44, DAD45) are to have buffer 
space allocated external to the 
program space. 

If EXTBUF is specified with 
SHRBUFF, the program defaults to 
NOSHRBUFF. 


Can be used with main programs only. 
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Examples: 

♦PROCESS MAP,DECK 

In the preceding example, MAP indicates that the compiler 
is to print a listing, called a map, of relative addresses (and, 
if the link-editing step is executed, a load module storage 
map), and DECK indicates that a card deck of the object 
module is to be punched. Default values, such as SOURCE 
and EBCDIC, apply for ♦PROCESS options that are not 
specif;; :.', 

♦PROCESS S0IJRCE,G0STIVIT,LINK{T,LIB(R1)) 

in the preceding example, SOURCE indicates that the 
compiler is to print a listing of the source program; note 
that SOURCE, although a default value, can be explicitly 
requested. (BOSTM f indicates that any diagnostic trace- 
back messages issued at execution time are to be printed 
with the ISNs of related FORTRAN statements. LINK 
(T,LIB(R1)) indicates that the load module produced by 
the linkage editor is to be stored as a temporary library 
entry located on thi; R1 disk. Default values apply for 
♦PROCESS options that are not specified. 



BATCHED COMPILATION 

To compile a program consisting of many program units, 
to be immediately followed by link-editing and load 
module execution, the main program must be the last 
program compiled. For example, assume a program 
consists of three program units— one main program and 
two subprograms. They should be submitted for 
compilation such that the main program follows the sub- 
programs in the job stream. An example showing the 
placement of OCL and compiler option statements for a 
batched compilation is illustrated in Example 4 in the 
following discussion. 



COMBINING OCL AND COMPILER OPTION STATE- 
MENTS 

The following examples show how compiler option 
statements can be combined with OCL statements. 



Example 1 : 

Assume you want to compile your program, with no link- 
editing step to follow. 

OCL statements you need are DATE (optional), LOAD, 
RUN, and /*. The only compiler option statement you 
need is the ♦PROCESS statement to specify NOLINK. 
Statements should be submitted in this order: 

// DATE 090174 
// LOAD $F0RT,R1 
// RUN 

♦PROCESS NOLINK 
FORTRAN source program 



Example 2: 

Assume you want to compile, link-edit, and execute a 
program that reads data from a card reader and prints the 
results on a printer. Further assume you want all compiler 
default options to apply. 

Necessary OCL statements are DATE, LOAD, FILE 
$WORK, FILE $SOURCE, RUN, and /*. The only com- 
piler option statement you need is a READ statement to 
set up the input buffers for the reader used at execution 
time; assume that the reader at your location is the 5496 
(for a Model 6 installation). You need neither a PRINT 
statement (because PRINT is assumed), nor a ♦PROCESS 
statement (because all ♦PROCESS defaults are wanted). 
Statements should be submitted in this order: 

// DATE 090174 

// L0AD$F0RT,R1 

// FILE NAME-$W0RK,UNIT-R1,PACK-111111, 

TRACKS-20,RETAIN-S 
// FILE NAME-SS0URCE,UNIT-R1,PACK-111111, 

TRACKS-20,RETAIN-S 
// RUN 

// READ DEVlCE-5496 
FORTRAN source program 

// LOAD ##MAIN,R1 
// RUN 
Program data 

/♦ 
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In this example, the READ statement defines the reader to 
use at execution time. The compilation and link-editing 
operation is defined as being from the first LOAD statement 
through the first /* statement. The load module execution 
operation is defined as being from the second LOAD 
statement (LOAD ##MAIN) through the second I* 
statement. 



Example 4: 

Assume you want to compile, link-edit, and execute a 
program consisting of three program units—MAIN. SUBl, 
and SUB2. A program consisting of more than one program 
unit is submitted as a batch compilation, with the subpro- 
grams compiled first and the main program compiled last. 



Example 3: 

Assume you wish to compile, link-edit, and execute a 
program that requires a card reader, a printer, and two 
sequential files with logical unit numbers 1 5 and 1 6. You 
are going to use the procedure, FORTRN, containing the 
appropriate LOAD and FILE statements, to call the 
compiler; and you want to produce all output types that 
the compiler is capable of generating. 

OCL statements you need are DATE, CALL, RUN, and /». 
Compiler option statements you need are READ (assume 
a Model 10 installation having the MFCU1 device), SEQ44 
to define two file numbers (assume the 5444 device), and 
♦PROCESS specifying MAP, GOSTMT, DECK, and 
GODECK (output-producing »PR0CESS1NG options not 
assumed by default). Statements should be submitted in 
this order: 

// DATE 090174 

// CALL FORTRN, R2 

// RUN 

// READ DEVICE-MFCU1 

// SEQ44 UNITNO-'15,16',BLOCKSIZE-'256,256' 

»PROCESS MAP,GOSTMT,DECK,GODECK 

FORTRAN source program 

/♦ 

Statements required by the load module execution step are 
not illustrated here. The SEQ44 statement requires two 
corresponding FILE statements at execution time. Required 
FILE statements are described in Chapter 15 Load Module 
Execution. 



Any compiler option statements specified, except 
♦PROCESS and CATEGORY, must be submitted with 
the main program. (*PROCESS can be submitted for main 
programs and subprograms, CATEGORY for subprograms 
only.) Thus, assuming that a card reader is to read data to 
the program, the READ device option statement must be 
submitted among the compilation cards for the main 
program. Further assume that the procedure, FORTRN, 
containing the appropriate LOAD and FILE statements, 
is used, and that both subprograms SUBl and SUB2 are 
given a category value of 10. 

Statements should be submitted in this order: 

// DATE 090174 

// CALL FORTRN, R2 

// RUN 

// CATEGORY VALUE-10 

SUBROUTINE SUBl 
/* 

// CALL FORTRN, R2 
// RUN 
// CATEGORY VALUE-10 

SUBROUTINE SUB2 
/♦ 

// CALL FORTRN, R2 
// RUN 
// READ DEVICE-5471 

PROGRAM MAIN 
/♦ 

// LOAD MA1N,R2 
// RUN 
Data input to load module 



The first CALL FORTH^J statemeiit calls the FORTRAN 
compiler to compile SUBL The /» statement indicatoi the 
end of the first compilation. The next CALL FOFriRN 
statement calls the compiler to compile SUS?, Th; tiiirci 
CALL FORTRN statement caHs the compiler lo cornpii-.. 
MAIN, The LOAD MAIN statement is the first st; si'^ent 
of the load module execution step. 



Compi;.-;fio; 
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Chapter 14. Linkage Editor Processing 



The output of the FORTRAN compiler, the object module, 
is not ready to be executed as a program. 

During a process called link-editing, the linkage editor con- 
verts the object module into a load module that is ready 
for execution. 



COMPILER INPUT TO THE LINKAGE EDITOR 



OCL STATEMENTS NEEDED FOR THE LINKAGE 
EDITOR 

If the linkage editor is called by the compiler, you need 
supply only the FILE statements named $WORK and 
SSGURCE as part of the compile step OCL statements. 
If the linkage editor is not called automatically, you can 
call it directly by specifying its name, $OLINK, in a 
LOAD statement. 



The FORTRAN compiler calls the linkage editor automatic- 
ally if any of the ^PROCESS options DECK, OBJECT, 
LINK, or GODECK are specified. If these options are 
specified, the compiler must also pass to the linkage editor 
the object module defined in the $WORK FILE statement 
and a utility work file defined in the $SOURCE Fl LE 
statement. 

The OBJECT option causes the linkage editor to store the 
object module into a library. DECK causes the linkage 
editor to punch a card deck of the object module. If these 
are the only options passed to the linkage editor, it returns 
control to the system after performing these functions. 

LINK causes the linkage editor to perform the link-editing 
function. GODECK can be specified to have a card deck 
of the load module punched. 



The following examples show only the order in which 
OCL statements should be submitted. 



Example 1 : 

To call the linkage editor without using a procedure, you 
submit the following statements; 

// LOAD $0LINK,R1 

// FILE NAME-$WORK 

// FILE NAME-$SOURCE 

// RUN 

Linkage editor input 

/• 



Example 2: 

To call the linkage editor using the procedure FORTL, 
you submit the following statements: 

// CALL F0RTL,R1 

// RUN 

Linkage editor input 

/♦ 
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LINKAGE EDITOR CONTROL STATEMENTS 



The formats and uses of the linkage editor control state- 
ments are identical for all models. 

Ordinarily, the compiler passes to the linkage editor all 
information that is necessary to link-edit an object module. 
However there are instances when you want to call the 
linkage editor facility directly, such as to group a number 
of subprograms together in storage. In such instances, you 
can load the linkage editor directly and use linkage editor 
control statements to specify the options you want. 

Linkage editor control statements provide information 
about the object modules to be link-edited. Like compiler 
option statements, they are used exclusively in one step and 
are coded in the same manner as OCL statements. 

Linkage editor control statements are fully described in 
IBM System/3 Overlay Linkage Editor Reference Manual, 
GC21-7561. 

The following example shows how linkage editor control 
statements can be combined with OCL statements. 



In this example, the LOAD statement loads the linkage 
editor from its location on unit R1 . The two FILE state- 
ments are required to provide work space for the linkage 
editor. The PHASE statement tells the linkage editor to 
store the load module under the name FIRST; by default 
the load module is stored as a temporary unit on R1 (the 
program pack). The INCLUDE statement specifies that 
the object module to be link-edited is named PR0G1 and 
is on unit F1. The CATEGORY statement changes 
SSBTAIVI from category 3 to category 2. 



LINKAGE EDITOR OVERLAY FEATURE 

If main storage is too small to accommodate an entire pro- 
gram, the linkage editor will force the program into overlays. 
In addition to the automatic overlay that can be performed 
by the linkage editor, the programmer can explicitly request 
overlays through the use of linkage editor control statements. 

The linkage editor attempts to fit all modules of an object 
program into the specified storage size without overlays. 
If this cannot be accomplished, the linkage editor assigns 
some modules to overlay segments. Modules are placed in 
overlays according to their size, category, and relationship 
to other modules in the program. 



Example 1 : 

Example 1 of Combining OCL and Compiler Option State- 
ments in Chapter 13, Compilation showed how to compile 
and store a program into an object library. Assume you 
want to retrieve that program, link-edit it, and store the 
load module under the name FIRST, into any library. 

OCL statements you need are DATE, LOAD, FILE 
$WORKand FILE $SOURCE, and RUN. Linkage editor 
control statements you need are PHASE, to assign a name 
to the load module, INCLUDE, to indicate the object 
module to be included in the link edit, and END. State- 
ments should be submitted in this order: 



The linkage editor overlay feature is fully described in the 
IBM System/3 Overlay Linkage Editor Reference Manual, 
GC21-7561. 



// DATE 100174 



// 
// 

// 



L0AD$0LINK,R1 

FILE NAIVIE-$W0RK,UNIT-R1,PACK-111111, 

TRACKS-20,RETAIN-S 

FILE NAIVIE-$S0URCE,UNIT-R1,PACK-111111, 

TRACKS-20,RETAIN-S 
// RUN 

// PHASE NAME-FIRST 
// INCLUDE NAME-PR0G1,UNIT-F1 
// CATEGORY NAME-$$BTAM,VALUE-2 
// END 
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Chapter 15. Load Module Execution 



The load module execution step runs a FORTRAN program 
that has been compiled and merged with other object 
modules into a load module. 

Load module input consists of OCL statements defining 
the step and any program data to be processed by the load 
module. Output consists of program output and execution 
messages. 

This section describes OCL statements needed for load 
module execution, program data, and combining OCL 
statements and data. 



OCL STATEMENTS NEEDED FOR LOAD MODULE 
EXECUTION 

The load module is called by an OCL LOAD statement 
specifying the load module's name. The name is either the 
name you assign to the source program in the PROGRAM 
statement, or the name ##MAIN given to an unnamed 
program by the compiler. 

OCL statements needed for load module execution are 
summarized in Figure 12. 



Statement 



// LOAD##MAIN 

or 
// LOAD name 



//FILE NAME- 
FTnnnnn 



// RUN 



r 



Function 



To call the load module 



To define a sequential 
of direct-access file 



To define the end of 
OCL statements in the 
job stream 



To define the end of 
input cards in the 
job stream 



When Required 



Always 



When the load module 
processes records from 
a disk or tape file 



Always 



When input cards 
are submitted through 
the input stream 



Placement in Job 
stream 



First card 



I Ca-T be Storca s 
! as Part o' •.. 



After the LOAD statement \ Ye;. 



After OCL stdtemnnts; 
before program in put 
cards 



After the last iriput 
card 



Figure 12. OCL Statements Needed for Load Module Execution 
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Examples for their use are shown below. These examples 
show only the order in which statements should be sub- 
mitted; for examples of fully coded OCL statements see 
Combining Load IVIodule OCL Statements with Compile 
Step Statements in this chapter. 



Example 1: 

Assume a procedure of OCL statements, FORTG, contain- 
ing a L.O,-,L.i statement having the name ##l\/IAIi\l. To call 
the procedure to execute an unnamed program, submit 
the following cards: 

// CALL FORTG, F1 

// RUN 

Program data if any 

h 



Example 2: 



PROGRAM DATA 

Program data-information to be processed by the load 
module-can be submitted in cards, as records on disk or 
tape, or from the keyboaid. Disk or tape records are 
defined as files on FILE statements. Card records arc 
submitted as a card deck between the OCL RUM and 
/* statements. The following example shows how yoi' 
can define input both on cards and on disk. 

Assume your program reads input from cards and from two 
files numbered 15 and 16, and you use the procedure 
FORTG to call the load module. Statements should be 
submitted in this order; 

// CALL FORTG, F1 

// FILE NAME~FT00015 

// FILE NAME-FT00016 

// RUN 

Card program data 

/♦ 



To call the same procedure, only this time for a program 
having the name MYPROG, submit the following cards: 

// CALL FORTG, F1 

// LOAD IVIYPROG 

// RUN 

Program data if any 

/* 

The LOAD statement specifying the name MYPROG 
replaces the LOAD statement in the procedure. 



COMBINING LOAD MODULE OCL STATEMENTS WITH 
COMPILE STEP STATEMENTS 

The load module statements specified in the preceding 
examples can be combined with compile step statements to 
form a complete job. In Chapter 13 Compilation, under the 
heading Combining OCL and Compiler Option Statements, 
Example 3 shows compile step statements that can be 
merged with load module statements. Simply place the 
load module statements after the compile statements to 
form a job in the followmg order: 



Example 3: 

To load a load module directly, without using a procedure, 
and assuming the use of a printer and a disk file named 
FT00009, submit the following cards: 

// LOAD MYPROG 

// FILE NAME-FT00009 

// RUN 



// DATE 090174 

// CALL F0RTRN,R2 

// RUN 

// READ DEVICE-MFCU1 

// SEQ44 UNITN0-'15,16',BL0CKSIZE-'256,256' 

•PROCESS MAP,GOSTMT,DECK,GODECK 

FORTRAN source program 

/* 

// CALL FORTG, R2 

// FILE NAME-FT00015,UNIT--R2,PACK-12345, 

TRACKS-5 
// FILE NAME-FT00016,UNIT-R2,PACK-12345, 

TRACKS-5 
// RUN 

Card program data 
/♦ 
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In this example, DATE assigns a system date to the job. 
The first CALL invokes the compile procedure FORTRN. 
READ sets up the MFCUI as the execution-time card 
reader; this statement permits card input to be read 
during the execution step. SEQ44 sets up a system 
control block and buffer space for each of the execution 
time files named FT00015 and FT00016. ^PROCESS 
specifies compiler options (a storage map to be printed, 
execution time error messages to be generated with 
internal statement numbers, a card deck of the object 
module to be punched, and a card deck of the load 
module to be punched). 

The second CALL invokes the load module procedure. 
The two FILE statements define the files whose system 
control blocks were defined by SEQ44. Card program 
data is read from the device defined by the compile step 
READ statement. 



Load Module Execution '09 
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Chapter 16. Job Output 



This chapter describes job output for the FORTRAN pro- 
gram depicted in Figures 13 and 14. Figure 13 shows a 
program as it was coded. This program adds a !ist of 4-digit 
numbers, computes the average, stores the results into a 
direct-access tile, and prints the results. Figure 14 shows 
the program as it was keypunched. Keypunch errors were 
introduced to provide examples of system diagnostic action. 

Figure 15 illustrates the OCL for the job and an input state- 
ment containing a group of numbers for the source program 
to add and average. The CALL statement calls the compiler. 
The device option statements READ, PRINT, and DAD44 
define devices to be used at execution time. The *PROCESS 
statement lists a typical selection of compiler options that 
produce output. If the *PROCESS statement were missing, 



default options SOURCE and LINK would still be in effect 
(SOURCE because it is the default for all programs, LiNK 
because it is tiie default for main programs). The FOR- 
TRAN source program is placed between the *PROCESS 
statement and the /* staterrient which is the last of the com- 
pile step statements. The LINK option causes the linkage 
editor to be called automatically; no OCL statements need 
by supplied for the link edit step. The LOAD statement 
loads the load module. The FILE statement defines the 
direct-access file used in the program. Input data corisists 
of 18 numbers, consecutively numbered 1 through 18, 
which the FORTR.AN program is to read four characters 
at a time into the array NUMBS, 
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Figure 13. Sample FORTRAN Program as Coded 



ut: U! 1 ' 1 



THE NUMBERS ARE READ 



1000, END = 20 < NUMBS(I), I = M, N ) 



PROGRAt^ AVG 
C THIS PROGRAM READS AND AVERAGES NUMBERS. 
C IN GROUPS OF EIGHTEEN FROM THE MFCUl . 

DEFINE FILE lU { 1, 16, E, K ) 
C IT ALSO WRITES THE AVERAGE ON UNIT lU AND READS IT BACK FOR 
C PRINTING. 

DIMENSION NUMBS ( 1000 ) 
C NUMBS IS THE ARRAY INTO WHICH THE NUMBERS ARE READ. 1000 NUMBERS 
C IS THE MAXIMUM NUMBER OF NUMBERS THAT CAN BE AVERAGED. 

M = 1 

N = 18 
10 READ ( 1, 

M = M + 18 

N = N + 18 

GO TO 10 
C READING CONTINUES UNTIL END OF FILE. 
C NUMBER OF NUMBERS READ WHEN CONTROL IS TRANSFERRED TO 

M = M - 1 

SUM = 0. 

DO 30 I =- 
SUM = 

CONTINUE 

AVG = SUM / M 

WRITE ( 3, 2000 ) SUM, AVG 

WRITE ( 14 '1, 3000 ) SUM, AVG 

READ ( lU'l, 3000 ) SUM, AVG 

WRITE (3, 2000) SUM, AVG 

STOP 

18 14 ) 

• SUM OF NUMBERS = «, F8. 3, ': AVERAGE = •,F8.3 ) 

2 F8.3 ) 



M 



IS ONE GREATER THAN THE 
20. 



20 



30 



40 



1, M 
SUM + 



NUMBS (H) 



1000 FORMAT 
2000 FORMAT 
3000 FORMAT 
END 



Figure 14. Sample FORTRAN Program as Keypunched 



// CALL 
// RUN 
// READ 
// PRINT 

// DAD^^ 

♦PROCESS 



F0RTRN,R2 



DEVICE-MFCUl 
DEVICE-5203 
UNITNO-m 

SOURCE, LINK (T, LIB ( R2 ) ) ,NOSHRBUFF 
FORTRAN source program 

/* 

// LOAD AVG,R2 

// FILE UNIT-F2,PACK-5MMM00,TRACKS-20,RETAIN-S,NAME-FT00014, 

// LABEL-MYFILE 

// RUN 

000100020003000M000500060007 0008000 900 10 00110012 001300 14 001500160017 0018 

/* 



Figure 15. OCL Example 
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Each compilation produces the following output: 

• An object module if no severe errors were encountered 
(as described in Diagnostic Messages), unless the 
•PROCESS option NOLINK is specified. 

• A compiler output listing that contains informative and 
diagnostic messages. 



EXTRN Reference: This entry specifies an external refer- 
ence, that is, a reference to a module name in another moduk 
During the link-edit step the linkage editor must resolve 
this reference (that is, locate the referenced module), by 
searching first the job stream, then the $WORK file, and 
finally the object library until it locates the referenced 
module. 



OBJECT MODULE 

The compiler produces an object module in the form of a 
series of records each 64 bytes long. There are three types 
of records in an object module: 



Weak EXTRN Reference: This entry specifies an external 
reference also, but during link edit the linkdge editor does 
not search the object library. If it cannot resolve the 
corresponding reference name by searching the job stream 
and $WORK,the linkage editor ignores the entry. 



• ESL (external symbol list record) 

• RLD (text-relocation directory record) 

• End Record 



GLOBAL Entry: This entry specifies a space allocation for 
a global area, an area to be used by rriore than one load 
module. This area is allocated at the start of the program 
level and its size is the size of the largest global area en- 
countered. 



ESL Records 

An ESL record defines the object module's reference name 
and external references to other modules that are to be link- 
edited with this object module. The ESL record format is 
illustrated in Figure 16. 

An ESL record is identified by the character S in the record's 
first byte. An ESL record can contain up to five ESL 
entries, each entry being 12 bytes long. There are seven 
types of ESL entries: 



COIVIMON Entry: This entiy specifies a space aHocation for 
a common area, an area to be used by one ioad module 
only. This area is allocated immediately following anv 
global area or at the load point if no global area is aliocated. 



EXTBUF Entry: This entry specifies the space required 
for external DAD buffers The area is allocated during 
execution of the program and is located after rhe lasi 
program byte used (between the logical er.c oi the p'ogrom 
and the end of the partition). 



Module Name: This entry contains the symbolic name of 
the module, the start address, the module length (in hexa- 
decimal), and its category value. 



Entry Point: This entry specifies this module's entry point 
name and its address. 



RLD Records 

An RLD record contains the object code and iwiy mnirma- 
tion needed to make the text reiocataale rti-:- RLD record 
format is illustrated in Figure 16. 

An RLD record is identified by the charadfrr T in the 
record's first byte. 



End Record 

The End record defines the end of the object module and 
contains the module's start address. It is identified by the 
character E in the record's first byte. It is illustrated in 
Figure 16. 



ESL Record 



ESL 

Entry 1 



1 2 3 



ESL 

Entry 2 



15 



Entry 3 



Entry 4 



Entry 5 



27 



39 



51 



63-64 



RLD Record 



T 


Length 


Assembled 




of text 


address of 




portion 


rightmost 




OF RLD 


byte of 




record 


text record 
relative to 0. 



1 2 



3-4 




64 



END Record 



Start 
Address 



1 2-3 4 

Figure 16. Object Module Record Formats 
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COMPILER OUTPUT LISTING 

Compilation of the program shown in Figure 14 results in 
the output listing illustrated in Figure 17, which Includes 
the compilation errors encountered. Figure 18 illustrates 
the listing for the same program after compilation errors 
were corrected. 



Messages 

Informative messages let you know the status of the compil- 
ation giving such information as the date the job was run 
and the compiler's version and modification level. Diagnostic 
messages let you know of any errors encountered during 
compilation. 



Informative Messages 

Informative messages in Figure 17 are labeled Q and B 
the beginning and the end of the compiler output listing. 
Label Q shows the first line of the listing, and a list of 
compiler option statements specified for the program. 

Label ll points to the end of the listing, and lists the 
number of compilation errors encountered, the highest 
severity code encountered (see Diagnostic IVIessages, follow- 
ing, for a discussion of severity codes), and a list of state- 
ment allocations that indicate storage addresses assigned to 
statement numbers used in the program. Storage address, 
shown m hexadecimal notation, are relative to the begin- 
ning of the program. Because the compiler moves the in- 
ternal code of FORMAT statements to the beginning of 
the program, statement numbers of FORMAT statements, 
such as numbers 3000, 2000, and 1000 in this program, 
are allocated lower storage addresses than numbers for 
executable statements, such as numbers 20, 30 and 40 in 
this program. 



Diagnostic l\/lessages 

Compiler diagnostic messages in Figure 17 are labeled 13 
Diagnostic messages appear on an output listing under the 
headings: 

STATEMENT ERROR 

NUMBER ISN NUMBER SEVERITY EXPLANATION 



Job Output ) 1 o 



where 



STATEMENT NUMBER is the starement number 
assigned to a FORTRAN source statement by the pro- 
grammer. Either the statement number or the internal 
statement number (ISN) is printed on the diagnostic 
line-. 

ISN is the iiiternal statement number assigned to the 
FORTRAN statement by the compiler. iSNs are 
assignee; m ascending order to the statements in the 
source module. (ISNs appear on the extreme left side 
of the source listing, labeled |3 , in Figure 17.) 

ERROR NUMBER is a two-digit number assigned to a 
particular error condition by the compiler. Each error 
condition is assigned a number. Error conditions, and 
corresponding explanations, are listed in Appendix B. 
Compilation Messages. 

SEVERITY indicates the severity code assigned to the 
error by the compiler. Each error is assigned one of 
two severity codes: 

4 Indicates a poss//3/e error. Compilation continues 
and ihe link-editing function is performed if 
allied, 

8 Indicates an error. Compilation continues but the 
system terminates processing after compilation. 
If any of the options LINK, OBJECT, DECK, or 
GODECK were specified, they are ignored. 



By scanning the statement we see that it contains three left 
parentheses and only two right parentheses; a right paren- 
thesis belongs after END=20. Because this error will affect 
program execution, it has a severity code of 8, preventing 
load moduie execution. 

The next error, for ISN 013, indicates an error in a subscript 
expression. ISN 13 contains only one subscript expression, 
NUMBS(H), where H is interpreted to be a real variable. 
This expression should be corrected to NUMBS(I). 

Figure 18 is a listing of compiler output after these correc- 
tions were made. For purposes of easier comparison be- 
tween Figures 18 and 17, areas of Figure 18 pertinent to 
the corrections are highlighted. 

OUTPUT FROM *PROCESS OPTIONS 

^PROCESS options that produce some form of output are 
SOURCE, MAP, DECK, GODECK, OBJECT, and LINK. 
If default options are in effect, SOURCE produces a listing 
of the source module; OBJECT produces an object module 
for a subprogram; LINK produces a load module for a 
main program; and MAP, GODECK, and DECK are sup- 
pressed. You may suppress SOURCE by explicitly speci- 
fying NOSOURCE. You can produce a storage map by 
specifying MAP, a card deck of the object module by speci- 
fying DECK, and a card deck of the load module by speci- 
fying GODECK. 



EXPLANATION is a brief summary of the error condi- 
tion. A full explanation of each error condition is 
presented in Appendix B. Compilation Messages. 

Figure 1 7 illustrates three diagnostic errors, one with 
severity code 4, the others with severity code 8. The first 
error illustrated, for source statement 40, indicates that 
the source statement is nowhere referred to and thus does 
not need a statement number. Source statement 40 is: 

40 READ(14'1,3000)SUM,AVG 

Because this error will not affect program execution, it has 
a severity code of 4. 

The next error illustrated, for ISN 006, indicates a syntax 
error. ISN 6 is the following statement: 

10 READ(1,1000,END=20(NUMBS{I),I=M,N) 
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FGRTHAN IV VERnn/MODnn 



rin/nn/nn PAGE 001 



10 
11 
12 
13 
I't 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2<f 



> MUHBfcRS. 
MFCUU 
K ) 

i)M iJMI r 



THE MUMlJLRS ARE KtAU 



I'. AND REAOS If BACK FiJ« 



ARE i<EAD. 1000 
BE AVERAGED. 



// READ OEVICE-MFCUl 

// PRfNT DEVlCt-5203 

// 0A04't UNllNG-l'i 

♦ PROCESS MAP,LlNMr,LlB(R2)l .NGSHRUUEE 

1 PROGRAM AVG 
C THIS PROGRAM READS AND AVERAGE 
C IN GROUPS OF ElGHrtFN FROM THE 

2 DEFINE FILE 1 ■. I 1, 16, E, 
C If ALSO *<RiTES THE AVERAGE 
C PRINTING. 

3 DIMENSION NUMBS ( 1000 ) 
C NUMBS IS THE ARRAY INTO WHICH THE NUMBERS 
C IS THE MAXIMUM NUMBER OF MUMBERS THAT CAN 

M = 1 
N -- 18 
10 READ ( 1, 1000, END = 20 ( NUMBS! II, I = M, N I 
M ^ M 1- IB 
N = N + 13 
GO TO 10 
C READING CUNIINUES UNTIL END OF FILE. 
C NUMBER OF NUMBERS READ WHEN CONTROL 
20 M = M - 1 
SUM = 0. 
DO 30 1 = 1 , M 
SUM = SUM 
30 CONTINUE 

AVG = SUM / M 
kJRITE ( 3, 2000 
I 



NUMBS! H) 



M IS ONE GREATER THAN Jiit 
IS TRAiNlSEERRED TO 20. 



100 J 
2000 
3 000 



WRITE 

READ 

WR ITE 

STOP 

FORMAT 

FORMAT 

FORMAT 

END 



SUM, AVG 
I'.' 1 , 3000 i SOM, AVG 
( 14' 1 , 3000 ) SOM, AVG 
( 3, 2000) SUM, AVG 



IB I', ) 

" SUM OF 
2 FB. 3 I 



NUMBERS ^ 



,FB. 3, I 



,EB. 3 ) 



B 



NAME AT HEXl DEC 1 HE X2 DEC2 NAME 

NUMBS I 0360 OOB77 130C 0',876 K 

N I 1315 0't8>)5 1 

AVG R 1321 0',«97 



AT HEXl DECl HEX2 JdC2 NAMt 
I 1 3 JD 0^,877 M 

I 1319 04889 SUM 



AT HEXl JECl HEX2 DEC2 
1 lill 04881 
R 131D 04893 



ERRORS FOR lOlS COMPILATION 



13 



STATEMENT 
NUMBER 





ERROR 




I SN 


NUMBER 


Sf vfERI lY 




97 


4 


006 


Ji 


B 


01 j 


21 


B 



EXPLANAIi ON 

STAIEMEMT NUMBER IS UN R tE E R r NC E J 

SYNTAX K'K'X 

SUBSCRIPT EXPRESSION ERR 



003 TOTAL ERRORS FOR THIS CO.MP I LA T I 0>l 
8 WAS THE HIGHEST SEV^RIIY 



STATEMENT ALLOCATIONS 
3000 =13F2 '000 =1418 1000 



= 142A 20 



Figure 17. Compiler Output Listing 



Joi:- Output 



1 v; 



FDRTRAtM I V' VERn;iMODn!l 



nn/nn/nn PAjE 001 



// READ 
// PRIMT 
// 0AD4t 
♦PROCESS 
1 



10 
11 



13 



14 
15 
16 
17 



18 



19 

20 
21 
22 
2J 
24 



DEVICE -^ 

DfVICt- 

UNI TM )- 

M AP , L ! M 

OR I) 

Irll 

!N 

TEF 

I r 

PK 1 
)1M 
NlJM 
! :> 
'1 -- 

:i_3. 



IHE M J-l lERS ARE KEAJ 



E C J 1 

■ ) :> J 3 

14 

Kl T.LIfUR?)) ,NI>SHRiJFF 

G^ANI A V.J 

S PKQGRAH READS AMJ AVcRAStS NUi'lBFRS. 

SRIUPS )F EIGHTEF'^I FR3M T4t MFCUl. 

IHE FILE 14 ( 1, 16, E, K ) 

ALS:J alRlTFS THE AVERAGE )M J'nIIT 14 AMO REAiS IT BACK FEIR 

■JTING. 

•NSlrjN MJ^jii I 10 00 ) 

"■S IS IrlE ARRAY liMTiJ (JHICH THE NUMBERS ARE REAJ. 1000 MUf^BERS 

HE MAXIMUM NUMBER JF MUMBERS THAT CAN BE AVERAGEi). 



J.J_i&>'T I li 1.30U, ENU ^ 20 ) ( NUMBSl!), I ^ M , ,N ) 



M 

■V = 

GO 

RE4 

NJM 

M = 

SJM 



M ♦ 



1 
1 

TO 10 
DI NG C 
3ER OF 
M - 1 
= 0. 
39 i 



8 
B 

0^4T1NUES UMTIL ENU OF FILE. M IS ONE GREATER THAN THE 
NUMBERS REAO ,JHEN CO\ITRJL IS TRANSFERRE) TO 20. 



i. Jl, 



SUM 



SUM «- NUMBS! I ) 



CON 
AVG 

illil 



r INUE 

= SUM 
TE ( 3 

lt_LJL 



/ M 
2000 ) SUM, AVG 
.4'1, 3000 ) SUM, AV G 



READ ( 14' 1, 3000 ) SUM, AVG 



1000 

2 GO 

3 000 



^RI 

sro 

FOR 
FUR 
FOR 

END 



TE (3, 

P 

MAT ( 
MAT ( 
MAT ! 



2030) SUM, AVG 

IB 14 ) 

' SUM OF NUMBERS 
2 F 3 . 3 ) 



,FB.3, 



AVERAGE 



, F B . 3 ) 



NAME AT HEX! DECl HEX2 DEC2 NAME 

NUM8S 1 03t)0 00877 130C 04876 K 

N I 1315 048B5 I 

AVG R 132 1 0''B9 7 



AT HEXl OfcCl HtX2 0EC2 NAME 
I 130D 04877 M 

I 1319 04889 SUM 



AT HEXl OECl HEX2 DEC2 
I 1311 04881 
R 1310 04893 



OOP TOTAL L-RRilRS FOR THIS COMPILATION 



STATEMENT ALLOCATIONS 
3000 = 141E 2J00 ^1444 1000 ^1456 10 =147A 20 =14C3 30 =14FE 

Figure 18. Compiler Output Listing After Corrections 



Object Module Card Deck 

An object module card deck Is produced consisting of the 
records described in Object Module, and the following: 

• A disk utility // COPY statement to instruct the system 
to insert the object module into a system library. This 
statement is the first card in the deck. 



Source Module Listing 

The source module listing in Figure 17 is labeled Q . The 
source module listing prints FORTRAN source statements 
together with their corresponding ISNs (internal statement 
numbers) assigned by the compiler to all FORTRAN source 
statements except comments statements and continuation 
lines. 



A header card that contains the object module's name. 
This statement follows the // COPY statement. 

A disk utility // CEND statement following the records 
to indicate the end of the card deck. 
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Storage Map 

The sloraye mat) i" Fiyuri! 17 is kibclcct Q . Th<i storage 
map is a listing of each variable name used in ihi; program, 
and such inlormalion as whether it describes an integer or 
real item, whether the Hem is in GLOBAL or COMMON, 
whether the item is undetined, and the storage address of 
the item, shown in l)oth hexadecimal anci decimal notation 
Items in COMMON are listed first witli storaqi; addresses 
relative to the beginning ol the COMMON area. Local 
variables (variables not in COMMON) are lisli;d next, with 
storage addresses relalivi; to the beginnmcj of the local pro- 
gram area. The storage ma|) appeals on an output listing 
under the headings; 



NAME AT HEXl DECf HEX2 DEC2 
(Hc^adings appear thiei; tim(!s (ler line.) 

where: 

NAME indicates thi; naiTie of the variable. 

AT indicates the attiibutes of the vatiablii. Attributes 
can be printed using three print positions. Tlie first 
print position indicates wlK.'ther the variable is integer 
(I), real (R), halfword (H), or doubleword (D). The 
second print position indicates whether it is in GLOBAL 
(G) or COMMON (C); if the item is a local variable, this 
position is left blank. The third print position identifies 
an undefined varial)le (U). 

HEXl indicates the address where a variable or array 
begins, in hexadecimal. 

DEC1 indicates the same address in decimal. 

HEX2 is used with an array to indicate where the array 
ends; in hexadecimal. If the item is not an array this 
address is left blan[<. 

DEC2 indicates the same address in decimal. 

The headings are repeated three times across an output 
listing page, so that each line of the map can describe three 
data items. The first data item described, NUMBS, is of 
type INTEGER (I), begins at location 877 (36D in hexa- 
decimal) and ends at location 4876 (130C in hexadecimal). 
NUMBS is a 4000-byte array. The data item SUM (the 
last item listed) is of type REAL, and is located at address 
4893 (131D in hexadecimal). Because SUM is not an array, 
no end address is shown. 



LINKAGE EDITOR OUTPUT 

The link-editing ste|) [produces the- following output: 

• A load module 

• A linkage editcjr listing of informative and (fiagnostic 
messages 

• Output determined by ojJtions 



Load Module 

The load module is in the form of a series of records, eacli 
96 bytes long. There are four types of records in a load 
module: 

1 . One header record 

2. A group of text records 

3. A group of relocation records 

4. One end record 

Header Record 

A header record defines the load module's reference name 
and start control address. The header record is identified 
by the character H in the first byte of the record. 

Text Records 

Text records contain the object code of the load moduie. 
Text records are identifier! by tiih character T in the fi.'-st 
byte of the record. Text records make up tne bulk of ioad 
module records. 

Relocation Records 

Relocation records contain information needed to r-^ake 
the load module relocatable in the event the moduie cannot 
be loaded at the start control arldress specified in the head 
er record. Relocation records are identilsed by tie eh.ari.''ter 
R in the first byte of the record 

End Record 

The end record defines the end of the load module, if : , 
identified by the character E ei tiie firs' byte of the focord. 



JLJtput 



Linkage Editor Output Listing 

Figure 19 illustrates link editing output for the program 
shown In Figure 14. 



Messages 

Like compilation messages, linkage editor messages Inform 
you of the slatiis of the link edit step and whether any 
errors were P'lcountered. 

Informative mcjssages iii Figure 19 arc labeled Qat the end 
oi the link edit output listing. Overlay linkage editor mes- 
sages OL100, OL101, and OL104 print out, respectively, 
trie si/e of the program, its beginning address (start control 
address), and the number of disk sectors the load module 
requires in the library. These messages are followed by a 
summary of OCL parameters that Identify the load module. 

Diagnostic messages are in the form of halt codes that are 
displayed on the display unit. No halt codes are generated 
for ttie program Illustrated here. For a description of halt 
codes, see the appropriate halt guide listed under Related 
Publications [v- the Preface. 



Output from Options 

Linkage editor output can be produced by the compiler 
options GODECK and MAP. GODECK produces a card 
deck of the load module. To obtain the card deck, you 
must explicitly request GODECK at compile time, the 
default being NOGODECK. The MAP option causes the 
linkage editor to print a core usage map of the load module. 



Load Module Card Deck 

A load module card deck Is produced consisting of the 
records described in Load Module and the following: 

♦ A disk utility // COPY statement to instruct the system 
to insert the load module into a system library. This 
statement precedes the load module cards. 

» A disk utiFity // CEND statement to indicate the end 
of a card deck. 
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Core Usage Map 

The core usage map in Figure 19 is labeled Q . The map 
appears under the headings: 

START CATEGORY NAME AND CODE LENGTH 

ADDRESS ENTRY HEXADECIMAL DECIMAL 

where 

START ADDRESS indicates the beginning storage 
address of the area or routine, in hexadecimal notation. 
For example, the main routine AVG begins at location 
1 300, and the FORTRAN library routine $FOE0 at 
location 2868. 

CATEGORY indicates the priority value of each routine 
for remaining in main storage in an overlay environment 
(the lov\/er the number the greater the priority). 

NAME AND ENTRY indicates the name of each area or 
routine, and, indented from the main entry point for 
each routine, other entry point names within the routine. 
For example, in addition to its main entry point, $FOE0 
contains other entry point names #MNTRY, #SNTRY, 
#RNTRY.and#0. 

CODE LENGTH indicates the length of each area or 
routine, in both hexadecimal and decimal notation. 



Job Output \2'\ 



OVERLAY LINKAGE tOITOR CORE USAGE MAP nn/nn/nn 



START 


CATEGORY 


NAME AND 


ADDRESS 




ENTRY 


1300 


255 


AVG 


2858 




#UNITB 


160 




#ER3UF 


1538 




#IOBUF 


2868 





SFOEO 


2 9D5 




tfi-^NTRY 


2 99 A 




#SNTRY 


2 90 9 




#RNTRY 


2 36 9 




#0 


2 9FB 





$F08l 


2A2C 




#0ED4 


2A40 




#OEDZO 


2A5D 





$FOI0 


2 A F ^ 




#ELST 


2B00 




#ELST2 


2AE5 




«D£RR 


2A03 




#iaiNT 


2Ai3F 




^IJCOM 


2BJC 




#ENDEJ 


2BI3 




^ERREJ 


2 8 24 




#0aT3L 


2BLA 




#INTBL 


2330 




HlJ^ii 


28 3 I 




WFLR02 


2 85 2 





$FQVG 


2B50 




#ADROT 


2 85 3 




#RLIST 


2B56 





$FOVH 


2B60 




#DLIST 


2B6E 


2 


$F0I6 


2C6 8 




#FGI6A 


2C'+B 




«F0I68 


2CE1 


2 


$$DAUB 


2D49 


2 


$$SROA 


20E2 


2 


tSSROI 


?! e 1 




OMSRPD 


2DFA 




DMSRRO 


2E1A 


2 


$$SRRC 


2E95 


2 


$$SRRI 


2E8E 


2 


$$SRr^O 


2F3F 


2 


$$SRTC 


2F3F 




DMSRLO 


2F50 




DMSRTC 


2F53 




OMSRER 


2F5B 


4 


$F0E3 


2F6 2 




ii^XL I 


2F68 




#XST 


2F6F 




#XA 


2F76 




)»XMLI 


2F7C 




#XMST 


2F8 3 


4 


$F0E6 


2F98 




#8ST 



CODE LENGTH 
HEXADECIMAL DECIMAL 



1563 



0193 



0062 



00F5 



oooc 

OOIJ 
0173 



0063 
09 9 
0038 



007B 
002 9 
0081 
OOIC 



0028 



5430 



403 



98 



24'; 



12 

la 
371 



104 

153 

56 



123 

41 

129 

28 



40 



OOIC 



23 



Figure 19 (Part I of 2). Linkage Editor Output Listing 
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ST\RJ 
A0D-(6SS 

2FBA 
2F n 
2F9F 
2FA2 
2F33 
2FCC 
2FCF 
2F3E 
2FC1 
3ajF 
3 OF 3 
31A3 
31 77 
3121 
31^"+ 
3257 
32EF 
32FE 
3350 
3356 
3 36 6 

33 7 J 
3473 

34 7 3 

3 3F3 
3435 
34A4 
3573 
376F 
3779 
3A03 
3A51 
3A69 
3A86 
3A30 
3342 
3353 
3C6 2 
3E11 
3E95 
3ECC 
3F33 
3F62 
4050 
4063 
4114 
4141 
4163 
419F 
413 8 
4254 
42C1 

4 3E0 



CArFr,j-(Y 



NAME ANO 

E Mi"^r 

«3A 

tt-iS 

$FGEA 

iRL 

4Rt\0 

«i<SO 
4><S 

H^r ^ 

$F It) 

« JJE -JO 

!*OOBR 

#0i3G\J3 

iFrjEE 

JFOEH 

$Fnvc 

AFLOAT 

$FOEC 
lti< JFL.V 

tFnf^2 

4fi<ET 
*Fa3 2A 
«F.JB23 
«FG32C 

iFQC2 

$F'K4 

$ F OC 5 
«FG'JTE 

JF068 

SFQB9 

SFOBA 

SFOCF 
*FJCF3 

iFOCH 
WFJCH3 

$FQCG 
«0I VIO 
4^0LJ 

iFiHC 
^ E tU S T 

$F0I3 
#FIJ[3A 
(*FiH 3 

4 F ] I 1 
^FOUA 

JPOVP 

$F013 

$F0d3 

$Fnj7 

JSMF'O 



CJOE LEMilH 
HEXAOECIMAL OhCI^^AL 



0154 



OOFl 



00 3 3 
09 3 
0061 

2 



0134 



OOCF 
OlFC 
0294 

004E 
J 1 3 
010 
003C 

12 

0?6A 



0096 

OOF 3 
00E4 



005E 

001 9 

9C 
0060 
012C 
0145 



340 



225 



131 
152 

97 

32 



3 09 



207 
508 
660 

7 3 

24 

29 

183 

233 

613 

150 

251 

2 28 

9 4 

25 
156 
10 J 

3 00 
323 



El 



QLIOO I 

ULioi r 

OL104 I 



THE T:\TAL core JSEO 3Y AVG is 12350 OECIMAL 
THE START CUNTROL ADDRESS OF THIS HOOiJLE I :> 1300. 
TOTAL NUMBER OF LIBRARY SECTORS REQUIRED IS 53 
NAME-AVG ^PACK-RIRIRI^ UN rT-R2 , RETA I N-T, L I BRARY-0 . 



Figure 19 (Part 2 of 21. Linkage Editor Output Listing 



Job Output 1 23 



LOAD MODULE OUTPUT 

Output from the load module step can be the following; 

• Informative and diagnostic messages 

• Printed output results generated by the FORTRAN 
program 



Program Output 

Output from execution of the FORTRAN program is 
labeled Q in Figure 20. This output indicates the sum and 
the average of the numbers read. It appears in duplicate 
as a result of two executions of the WR ITE statement, one 
from computations made in storage, the other from reading 
the results back in from direct access file number 14. 



Figure 20 illustrates load module output for the program 
shown in Figure 14. 



iVIessages 

The output listing for a load module step begins with a list 
of OCL load module statements, labeled Q in Figure 20. 

Load module diagnostic messages are halt codes displayed 
on the display unit rather than on an output listing. Two 
halt codes are associated with FORTRAN load module 
processing: lzS6 to indicate that a PAUSE or STOP state- 
ment was executed, and \in to indicate that an execution 
error occurred.. On the Model 6, these halts are displayed 
as follows: bi6 as 4 and bS? as 13. 



Using the FORTRAN Traceback Listing 

If an execution error occurs in a program containing a 
number of program units, the traceback facility can be used 
to locate the program unit where the error occurred. To 
illustrate how the traceback facility can be used, refer to the 
program shown in Figure 22. Part 1 of this figure shows 
compiler output for the subroutines X and Y. Part 2 shows 
compiler output for the main program unit ##MAIN. 

These program units perform the following operations: 

• ##MAIN twice passes a value to subroutine X, in the 
variable A. The first time passed, A has the value 4; the 
second time, the value 1 . 



When a 646 halt code occurs as a result of a PAUSE state- 
ment, you can either continue processing (by responding 
with a option), or terminate processing (by responding 
with a 2 or 3 option). 

When a \tn halt code occurs, you must terminate processing 
(by responding with a 2 or 3 option). Halt code b57 has 
several secondary halt codes that identify the cause of the 
error. 



• Subroutine X accepts the value in its variable J. X 
then subtracts 1 from the value, calls subroutine Y, and 
upon return from Y again subtracts 1 and calls Y. 

• Subroutine Y uses the value in J as a logical unit number 
in a WR ITE statement to print out a message. 



For procedures concerning responding to halts, and a 
description of secondary halts, see the appropriate Halt 
Guide— as listed in the Preface under Related Publications. 

Figure 21 shows the options possible for PAUSE statements, 
STOP statements, and execution error halts. 



□ 

Q 



// LQAT AVG.RZ 

// FILE UiNir-F,^,P4CK-5^'+^0J,Ti<ACK.S-2J,'<ETAIN-S,:MA^t-FT0J014,LA.iEL-MYFILc 



SU'^ W MU'^^^L^IS = 171, 
SU-^ IF MUMREe^S = 171. 



000 AVERAGE 
000 AVtRAub 



9.500 
9. 500 



Figure 20. Load Module Output 
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Part 3 of Figure 22 shows the traceback listing resulting 
from an execution error in this program. The traceback 
listing contains the following information; 

ROUTINE indicates the name of the routine. The name 
shown at the top of the list identifies the routine that 
was executing when the error occurred. The name 
immediately below that identifies the routine calling 
the top listed routine, and below that, are listed the 
other calling routines. 

ISN specifies the internal statement number in the 
routine that called the routine listed. For example, sub- 
routine Y was called by ISN 5 in subroutine X. 

XR1, XR2,and ARR specify the contents of index 
register 1 , index register 2, and the address recall register, 
respectively. This information is useful to the IBM 
customer engineer if he must service the system. 

The traceback listing in Figure 22 tells a number of things: 

• Subroutine Y was executing when the error occurred. 

• Subroutine Y was called by ISN 5 in Subroutine X. 

• Subroutine X in turn was called by ISN 3 in ##IVIAIN. 



ISN 3 in ##f\/IAIN is the first call to X, when A has the value 
4. ISN 5 in X is the second call to Y, after X has subtracted 
the value of J a second time. (The first call resulted in print- 
ing the message shown before the traceback listing.) Thus, 
J has the value 2 when Y is called in ISN 5. Since Y uses 
J as a logical unit number, the error is that the number 2 
has not been assigned to an output device. (No error occur- 
red wfien J has the value 3 because 3 is assigned to a printer 
by default.) 



Obtaining a Traceback Listing 

To obtain a traceback listing, do the following: 

1 . Specify GOSTMT in the ^PROCESS statement for 
each program unit to be traced. (If GOSTMT is not 
specified for a program unit, internal statement 
numbers in that unit are not displayed.) 

2. If an error occurs, the character 7 (from the halt coae 
bi7) appears on the display unit. Respond with option 
to get the secondary halt. (The error in Figure 22 
would cause secondary halt code 10 to appear.) 
Respond with option 2. This causes FORTRAN to 
terminate job execution and print out the traceback 
listing. 





Halt 


Options 


Model 6 


Models 10 
and 12 


Model 15 


PAUSE n 


4 


m 


m 


Continue processing. 
2 Have FORTRAN cancel the 
program. 


STOP n 


4 


m 


IA6 


2 Have FORTRAN cancel the 
program. 

3 Have system cancel the 
program. 


Execution 
error 


13 


\hl 


bS7 


2 Have FORTRAN cancel the 
program. 

3 Have system cancel the 
program. 



Figure 21. Possible Options for PAUSE, STOP, and Execution Errors 
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// CALL FORTRN.Fl 

XX LOAD $F0RT,F1 

XX FILE NAME-$W0RK,UNiT-Rl,PACK-RlRlRl,TRACKS-20,RETAIN-S 

XX FILE NAME-$S0URCE,UNIT-Rl,PACK-RlRlRl,TRACKS-20,RtTAIN-S 

// RUN 

FORTRAN IV VERnn/MODnn nn/nn/nn PAGE OCX 

♦PROCESS MAP.GOSTMT 

i SUBROUTINE X(J) 

2 2 J=J-1 

3 3 CALL Y( J) 
h J=J-1 

5 5 CALL Y(J) 

6 RETURN 

7 END 

NAME AT HEXl DECl HEX2 DEC2 NAME AT HEXl DECl HEX2 DEC2 NAME AT HEXl DEC! HEX2 DEC2 
J 1 0006 00006 



// CALL F0RTRN,F1 

XX LOAD $F0RT,F1 

XX FILE NAME-$W0RK,UNIT-R1,PACK-R1R1R1,TRACKS-20,RETAIN-S 

XX FILE NAME-$SOURCE ,UNIT-R1,PACK-R1R1R1,TRACKS-20,RETAIN-S 

// RUN 

FORTRAN IV VERr.n/MODnn nn/nn/nn PAGE 001 

♦PROCESS MAP.GOSTMT 

1 SUBROUTINE Y(J) 

2 2 WRITE(J,100) 

3 100 FORMAT (' IN SUBROUTINE Y') 

4 RETURN 

5 END 

NAME AT HEXl DECl HEX2 DEC2 NAME AT HEXl DECl HEX2 DEC2 NAME AT HEXl DECl HEX2 DEC2 

J 1 0006 00006 



Figure 22 (Part 1 of 3). Traceback Example 
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// CALL FORTRN.Fl 

XX LOAD $F0RT,F1 

XX FILE NAME-$WORK,UNIT~R1,PACK-R1R1R1,TRACKS-20,RETAIN-S 

XX FILE NAME-$S0URCE,UNIT-R1,PACK-R1R1R1,TRACKS-20,RETAIN-S 

// RUN 



FORTRAN IV VERnn/MODnn nn/nn/nn PAGE 001 

♦PROCESS MAP.GOSTMT 

1 INTEGER A 

2 A=4 

3 CALL X(A) 

4 A=l 

5 CALL X(A> 

6 STOP 

7 END 

NAME AT HEXl DECl HEX2 BEC2 NAME AT HEXl DECl HEX2 DEC2 NAME AT HEXl DECl HEX2 DEC2 

A I 0185 00389 

000 TOTAL ERRORS FOR THIS COMPILATION 
Figure 22 (Part 2 of 3). Traceback Example 



// LOAD ##MAIN,F1 
// RUN 

IN SUBROUTINE Y 

TRACEBACK FOLLOWS ROUTINE ISN XRl XR2 ARR 

Y 00005 1504 16B7 1705 

X 00003 1504 14CF 14E7 

##MAIN 

Figure 22 (Part 3 of 3). Traceback Example 
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Part 3. Programming Considerations 



This section contains: 

• Direct-access programming considerations 

• Sequential disk and tape programming considerations 

• FORTRAN implementation considerations 

• System considerations 
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Page of SC28-6874-3 
Issued 29 September 1978 
ByTNL: SIM21-5634 

Chapter 17. Direct-Access Programming Considerations 



in FORTRAN, the two types of input/output (I/O) 
operations supported for direct-access files are formatted 
and unformatted. 

The record length for a direct-access file is specified in the 
DEFINE FILE statement. The block length is specified by 
the BLOCKSIZE parameter in the DEVICE OPTIONS 
statement. 

Formatted I/O 

Formatted I/O has a FORMAT statement associated with 
the READ or WRITE statement that is used to access the 
data in the file. The amount of data to be transferred for 
a formatted READ or WRITE statement is determined by 
the format codes in the FORMAT statement and the 
number of variables in the I/O list. 

The FORMAT statement used to control the reading or 
writing must not specify more characters (bytes) than 
there are in a record. 

For example, to process a file described by the statement: 

DEFINE FILE 8(10,48, L,K8) 

the FORMAT statement used to control reading or writing 
could not specify more than 48 bytes of data. 

The following are valid FORMAT statements: 

FORMAT(4F12.1) 
FORMAT(I10,9F4.2) 

The following are invalid FORMAT statements: 

FORMAT(6F10.2) 
FORMAT(I10,4F12.2) 

The I/O list for a READ or WRITE statement must always 
be satisfied. That is, if there are more variables in the I/O 
list than there are format codes, the FORMAT statement 
will be reused. When reused, a new record will be 
transferred. This will continue until the I/O list is satisfied. 



If the amount of data to be written is less than the record 
length, the record is padded on the right with blanks. 

Unformatted I/O 

Unformatted I/O has no FORMAT statement associated 
with the READ or WRITE statement that is used to 
access the data in the file. The amount of data to be 
transferred for an unformatted READ or WRITE 
statement is determined by the number and type of 
variables in the I/O list. There is a one-to-one correspondence 
between internal storage locations (bytes) and external 
record positions. 

The I/O list for a READ or WRITE statement must always 
be satisfied. If the amount of data specified in the I/O 
list exceeds the record length, more than one record 
will be read or written, enough to satisfy the I/O list. 

If the amount of data to be written is less than the 
record length, the record is padded on the right with 
binary zeros. 

SHARING THE ASSOCIATED VARIABLE BETWEEN 
PROGRAMS 

Programs can share an associated variable as a COMMON 
or GLOBAL variable. The following example shows how 
this can be accomplished: 

COMMON lUAR SUBROUTINE SUBI(A,B) 

DEFINE FILE 8(100,10, COMMON lUAR 
L.IUAR) 



ITEMP=IUAR 
CALLSUBI (ANS,ARG) 
4 IF (lUAR-ITEMP) 20,16,20 



In this example, the program and the subprogram share 
the associated variable lUAR. An input/output operation 
that refers to logical unit 8 and is performed in the sub- 
routine changes the value of the associated variable. The 
associated variable is then tested in the main program in 
statement 4. 
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An associated variable can also be passed to a subprogram 
as an argument in a CALL statement. However, in a 
subprogram the dummy variable is not automatically 
updated unless ^t is passed to the subprogram via COMMON 
or GLOBAL and not through the argument list. If the 
variable is to be passed through the argument list, you 
must update it yourself with FORTRAN statements. 

MINIMIZING DIRECT-ACCESS I/O TIME 

You can decrease I/O time by processing a direct-access 
file consecutively. Consecutive processing of a direct- 
access file occurs when the relative record number is 
increased by one each time the file is accessed. This can be 
done by using the associated variable in the DEFINE FILE 
statement as the relative record number in the I/O statement. 
Example: 

DEFINE FILE 10(100,64,L,I) 



1 = 1 
5 READdO'DIRAY 



GO TO 5 

The associated variable (I) in the DEFINE FILE statement 
is mitially set to 1 by an assignment statement (1 = 1). It is 
also used as the relative record number in the READ 
statement. After the READ statement is executed, the 
associated variable is automatically updated by FORTRAN 
to point to the next record. Thus, as the loop is executed a 
number of times, the file is processed consecutively. 

Consecutive processing of a direct-access file can also be 
done by updating the relative record number by one each 
time the file is accessed. 

Example: 



If a direct-access file is processed consecutively, you can 
further decrease I/O time by specifying two buffers and a 
blocksize as large as possible without exceeding the amount 
of main storage available for buffers in the load module's 
environment. (Remember that the main storage needed for 
buffers is doubled when two buffers are specified.) See 
Buffer Assignment for Direct-Access Files. 

When BLOCKSIZE and BUFFERS are used, the program 
must be in the NOSHRBUFF environment. This can be 
specified in the *PROCESS statement. (NOSHRBUFF is a 
default option in the »PROCESS statement.) 

Note: If a file is being processed randomly, I/O time might 
be increased when BLOCKSIZE and BUFFERS are used. 



BUFFER ASSIGNMENT FOR DIRECT-ACCESS FILES 

The system accesses records from a direct-access file only in 
256-byte segments to correspond with the arrangement of 
disk storage into 256-byte sectors. The size of the buffer 
allocated to a file must be an exact multiple of 256, and 
is determined by the blocksize specified in the DEVICE 
OPTIONS statement. If the BLOCKSIZE parameter is not 
specified, the record length from the DEFINE FILE 
statement is used to calculate the size of the buffer. 

The following rules apply when buffer space is being 
allocated: 

1. If the block length (or record length) is a submultiple 
of 256, a 256-byte buffer is allocated. 

2. If the block length (or record length) is a multiple of 
256, the buffer size is equal to the block length (or 
record length). 

3. If the block length (or record length) is neither a 
multiple nor submultiple of 256, the buffer size is 
determined as: block length (or record length) -I- 255 
raised to the next higher multiple of 256. 



DEFINE FILE 10(100,64,L,I) 

1 = 1 

J=1 
5 READ(10'J)IRAY 



J=J-i-1 
GO TO 5 



If the file's DEVICE OPTIONS statement specifies BUFFERS-2, 
the buffer size is doubled before it is allocated. 

The following examples illustrate these rules: 



Example 1: 

II DAD44 UNITNO-10 

DEFINE FILE 10(100,64,L,I) 
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In this case, BLOCKSIZE is not specified, so the record 
length (64) from the DEFINE FILE statement is used to 
calculate the size of the buffer. The records are stored on 
disk as follows: 





-Sect 


Dr 1 - 






- Sector 2 — 






-Sect 


















3r 3 — 




Rec 
1 


Rec 
2 


Rec 
3 


Rec 
4 


Rec 
5 


Rec 
6 


Rec 
7 


Rec 
8 


Rec 
9 


Rec 
10 


Rec 
11 


Rec 
12 



64 128 192 256 320 384 448 512 574 638 704 768 

The record size is a submultipie of 256. Therefore, a 
buffer Size of 256 is aiiocated. 



Example 2: 

II D.AD44 UNITI\IO-12.BLOCKSIZE-768 

DEFINE FILE 12(200.64,L,i) 



In this case, the BLOCKSIZE ,s specified as 768, The 
records are stored the same as in the previous example. 

The block length is a multiple of 256. Therefore, the 
length aiiocated for the buffer is the block length. In this 
case, FORTRAN accesses 12 records with each physical 
I/O operation (if the file is being processed consecutively). 

Example 3: 

II DAD44 UNITNO-VI 



DEFINE FILE 14(50.96.L,i) 



In this case, BLOCKSIZE is not specified, so the record 
length (96) from the DEFINE FILE statement is used to 
calculate the size of the buffer. The records are stored on 
disk as follows: 



-Sector 1- 



Rec 
1 



Rec 
2 



-Sector 2 



Rec 

3; 



Rec 
4 



=± 



■ Sector 3 — 



Rec 
5 



f\cc 



96 



192 256 268 



Rec 
7 



Rec 



384 



480 512 576 



672 



768 
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Record 3 straddles two sectors. In order to process this 
record, a buffer of 512 must be allocated, using the rule: 

Record length (96) +255 (=351) raised to the next mul- 
tiple of 256 (512). Two sectors are loaded into each 
buffer. 

When the buffer is loaded with sectors 1 and 2, it contains 
the following records: 



0- 



■Buffer- 



-512 



Rec 1 


Rec 2 


Rec 3 


Rec 4 


Rec 5 


Rec 6 

(partial) 



96 



192 



288 



384 



480 



512 



Records 1 through 5 can be processed. When record 6 is to 
be processed, the second and third sectors are placed into 
the buffer, as follows: 



0— 



• Buffer - 



—512 



Rec 3 

(partial) 


Rec 4 


Rec 5 


Rec 6 


Rec 7 


Rec 8 



256 288 



384 



480 



576 



672 



768 



Record 6 can novv be processed, as can records 7 and 8. 
When record 9 is to be processed, the appropriate sectors 
are placed into the buffer. 



File Share (Program Number 5704-F02 Only) 

Direct-access files on disk drives can be shared with another 
task or partition at execution time by using system control 
programming (SCP) statements. File share causes direct- 
access files with double buffers to default to single buffer 
status during execution. The SCP default parameter for 
// FILE statements is SHARE-YES. Therefore, it is necs- 
sary to specify SHARE-NO if double buffering is ■Tdd 
during program execution. 



Example: 

II CALL F0RTRN,F1 

// RUN 

// DAD44 UNITNO-15,BUFFERS-2 

FORTRAN source program 

/* 

// L0AD##MAIN,F1 

// FILE NAME-FT00015,PACK-654321,UNIT-R1, 

RETAIN-T, 
// RECORDS-800,SHARE-N0 
// RUN 
Program data 

For further information, see the appropriate System 
Control Programming Reference Manual listed under 
I Related Publications in the Preface. 



Sharing Buffers 

Direct-access files on disk drives can share a buffer. The 
size of the buffer is equal to the maxim.um block size 
computed. For example, if the three files shown in the 
preceding examples were to share a buffer, the I/O buffer 
size would be allocated as 768 bytes, the size of the largest 
buffer needed. 



Buffers cannot be shared with a file that has BUFFERS-2 
specified in the device option statement, or EXTBUF 
specified in the *PROCESS statement. For best perfor- 
mance, buffers should not be shared with a file that has 
BLOCKSIZE larger than 256 specified (or defaulted) on 
the associated device option statement. 
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Chapter 18. Sequential Disk and Tape Programming Considerations 



In FORTRAN, the two types of record formats supported 
for sequential disk and tape files are fixed-length and 
variable-length. Fixed-length records are transferred for 
formatted or list-directed input/ouput (I/O). Variable- 
length records are transferred for unformatted I/O. 

The record length is defined by the BLOCKSIZE parameter 
on the DEVICE OPTIONS statement. This value is used 
as the record length in the volume table of contents 
(VTOC) for disk files and the header label for tape files 
When FORTRAN sequential files are being accessed, 
this value must be used in other programming languages 
as the record length. 

FORMATTED OR LIST - DIRECTED I/O 

The amount of data to be transferred for a formatted READ 
or WRITE statement is determined by the format codes in 
the FORMAT statement and the number of variables in the 
I/O list. For list-directed I/O, the amount is determined by 
the type and number of variables in the I/O list. 

For a READ statement, if the amount of data to be read 
exceeds the record length, multiple records will be read 
(enough to satisfy the I/O list). If the amount of data 
to be read is less than the record length, the remaining 
data in the record is skipped. 

For a WRITE statement, if the amount of data to be 
written exceeds the record length, multiple records will 
be written (enough to satisfy the I/O list). Data from 
a variable will never span a record. If the data from a 
variable does not fit at the end of a record, it will be 
the first data placed in the next record. If the amount 
of data to be written is less than the record length, the 
record will be padded on the right with blanks. 



Example: 

//SEQ44UNITNO-10, BLOCKSIZE 32 



DIMENSION IRAY (6) 



WRITE (10,20) IRAY 
20 FORMAT (615) 



Record Length ■ 



IRAY(I) 



RAY(6) Blanks 



-30 Bytes- 



■*-2 Bytes - 



-32 Bytes- 



The BLOCKSIZE parameter specifies a record length of 
32 bytes. The FORMAT statements specify 30 bytes 
(six fields, each 5 bytes long). The I/O list has six 
variables (six elements of array IRAY). If the amount 
of data to be written is 30 bytes, which is less than 
the record length of 32 bytes, the record is then padded 
with 2 bytes of blanks. 

UNFORMATTED I/O 

A record is made up of a 4-byte record descriptor, 
a 4-byte segment descriptor, and a data segment 



• Record Length- 



Record 
Descriptor 


Segment 
Descriptor 


Data 



-4 Bytes- 



.4 Bytes 



H 
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The format of the record descriptor is: 



Record Length 



Reserved 



■ 2 Bytes- 



2 Bytes- 



where 

record length is the value given in the 
BLOCKSIZE parameter. The record 
length is stored as a binary value. 

reserved is filled with binary zeroes. 

The format of the segment descriptor is: 



Segment Length 



Code 



Reserved 



-2 Bytes- 



-•-r*- 



-1 Byte- 



» ^ 



-1 Byte- 



where 

segment length is the length in binary of the 
segment of data plus the 4 bytes of the 
segment descriptor. 

code is used to indicate the position of 
this segment with respect to the other 
segments, if any, of the FORTRAN record. 



Code 


Meaning 


00 


The only segment in the record 


01 


The first segment of a 




multisegment record. 


02 


The last segment of a 




multisegment record. 


03 


Neither first nor last segment 




of a multisegment record. 



reserved is filled with binary zeroes. 

The amount of data to be transferred for each unformatted 
READ or WRITE statement is determined by the number 
and type of variables in the I/O list. The data can be 
recorded in one or more segments. 



For a READ statement, if the amount of data to be read 
exceeds the data in a segment, multiple segments will 
be read. Whether the record has a single segment or 
multisegments, the amount of data to be read in a 
single READ statement must never exceed the amount 
of data previously written into a record. If the 
amount of data to be read is less than the amount 
previously written, the remaining data in that segment 
and any other segments of a multisegment record are 
skipped. 



For a WRITE statement, if the amount of data to 
be written exceeds the record length minus 8 (the 
length of the descriptors), multiple segments will be 
written (enough to satisfy the I/O list). Data from a 
variable will never span a record. If the data from a 
variable does not fit at the end of a segment, it will 
be the first data placed in the next segment for that 
record. 

If the amount of data to be written is less than the 
record length minus 8 (the length of descriptors), 
the segment will be padded on the right with binary 
zeroes. 



Example: 

II SEQ44 UNIT NO-10 BLOCKSIZE-32 



INTEGER*2 12 
DIMENSION IRAY(8) 



WRITE (10) 12, IRAY 
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■Record Length • 



.Record 
Descriptor 



00200000 



Segment 
Descriptor 



First Segment of Data- 



001 A 01 00 



12 



IRAY(I)- 



iRAY(5) 



0000 



-4 Bytes — »4-* — 4 Bytes- 



-•2 Byte»- 



-20 Bytes- 



-♦2 Bytes*- 



-32 Bytes 



Record 
Descriptor 



Segment 
Descriptor 



00200000 



00100200 



-Record Length- 



■ Last Segment of Data. 



IRAY(6) 



IRAY(8) 



-4 Bytes- 



-• — 4 Bytes — *- 



-12 Bytes- 



■12 Bytes- 



-32 Bytes- 



The BLOCKSIZE parameter specified a record length of 
32 bytes. The amount of data to be transferred is 34 
bytes: one variable 2 bytes long (12 is integer *2) and 
eight variables 4 bytes long (8 elements of array (RAY). 
The amount of data that can be placed in a segment is 
24 bytes (32 minus 8 bytes of descriptor). Thus, more 
than one segment must be written to satisfy the I/O list. 
Variable I RAY (6) will not fit in the 2 bytes at the end 
of the first 4 bytes of the next segment. 



The record descriptor for both segments indicate a length 
of 32 (X'20'). The segment descriptor for the first 
segment indicates a length of 26 (X'1 A'); (22 bytes of 
data plus 4 bytes of descriptor and a code of X'OV which 
indicates the first segment of a multisegment record). The 
length in the next segment descriptor is 16 (X'10'); 12 
bytes of data plus 4 bytes of descriptor). The code X'02' 
indicates the last segment of a multisegment record. 



Sequential Disk and Tape Programming Considerations 1 37 



Page of SC28 6874-3 
Issued 29 September 1978 
BvTNL: SN21-5634 

BUFFER ASSIGNMENT FOR SEQUENTIAL FILES 



MODEL 15 MULTIFILE TAPE PROCESSING 



The size of the buffer allocated for a tape file is either the 
value gj>/en on the BLOCKSIZE parameter of the TAPE 
DEVICE OPTIONS statement or 128, whichever is larger. 
The buffer will contain only one record at a time. 

The size of the buffer allocated for a disk file is always 
256 bytes (the size of a disk sector). The buffer can 
contain from 1 to 16 records, depending on the record 
length. To keep records from spanning sectors, the 
record length must be 256 or one of the following 
submultiples: 128, 64, 32, or 16. 

To minimize i/0 time and make the most efficient use 
of disk space, the record length should be the smallest 
submultiple. This value can be calculated as follows: 

• Formatted I/O: Add the lengths given in the FORMAT 
statement for the number of variables in the I/O list. 

• List-Directed I/O: Add the lengths needed for the 
variables m the I/O list. The length needed for each 
type of variable is described in Chapter 5 under List- 
Directed Output Data. 



Multiple files per tape volume are supported only by Model 
15 FORTRAN. The file sequence number is specified on 
the FILE statement at execution time. A further 
description can be found in the IBM System/3 Model 15 
System Control Programming Reference Manual, 
GC21-5077. 



TAPE PROCESSING IN PROGRAMS USING OVERLAYS 

Tape data management is overlay category 3, and the 
FORTRAN I/O interface modules for sequential disk and 
tape are overlay category 2. This can cause problems for 
large programs that are forced into overlays when using 
tape I/O. In such cases, a separate link step should be 
performed with a linkage editor control statement changing 
the tape data management to category 2. The section 
describing Linkage Editor Control Statements includes the 
following category override statement: 

// CATEGORY NAME-$$BTAM,VALUE-2 



• Unformatted I/O: Add the lengths of the variables 
in the I/O list. To this total, add 8 (descriptor bytes). 

RESTRICTIONS ON THE ORDER OF SEQUENTIAL 
I/O OPERATIONS 

1 . A READ request cannot follow a WRITE or END 
FILE request on the same file. 

2. A WRITE request cannot follow an END FILE 
request on the same file. 

3. An END F I LE request cannot immediately follow 
another END FILE request on the same file. 
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Directing Program Output to Both a Printer and a Card 
Punch 

If program output is to be both punched and printed, use 
two WRITE statements with the appropriate logical unit 
number assignments, and include both a PUNCH and a 
PRINT device option statement in the job stream. 



Example: 

II PRINT DEVICE-5471 
// PUNCH DEVICE-1442 



WRITE(5,10)J,K 
WRITE(9,11)J,K 

10 FORMAT('0',nO,5X,l5) 

11 FORMAT(I10,5X,I5) 

The example states that the variables J and K are to be 
printed on the device assigned logical unit number 5 (the 
5471 printer/keyboard) and punched on the device 
assigned logical unit number 9 (the 1442 card read punch). 
The only difference between the two FORMAT statements 
is that statement 10 specifies in its first position the 
carriage control character needed for printing operations. 



DEBUG Facility Considerations 

When specifying SUBCHK or INIT to display array values, 
keep the following in mind: 

• The INIT option displays both the array subscript and 
the array element value. 

• The SUBCHK option displays only an invalid array 
subscript. 

• The element number displayed is shown displaced from 
location in the array. In other words, the first element 
would show beginning at location 0. 



For an example, refer to Figure 23. Part 1 of Figure 23 
shows the compiler output for a program that tests certain 
elements of the array (-1, 0, 1, 10, and 1 1) using debug 
options SUBCHK and INIT. Part 2 of Figure 23 shows the 
debug output after program execution. Ignore for the 
moment the first four items displaying unusual subscript 
values in parentheses. The fifth through eighth items show 
the subscript as a displacement from 0. lA is an INTEGER«4 
array (by default); thus, the tenth element is shown 
beginning at location 36 (IA{00036)=10); the eleventh 
element is shown beginning at location 40 (IA(00040)=1 1 ); 
because this element is beyond the range of the ten element 
array lA, it is flagged by SUBCHK. 

Refer to the first four items. The unusual subscripts are 
displayed of an attempt to display subscripts occurring 
before the beginning of the array (-1 and 0). To identify 
the subscript that was meant to be displayed, use the 
following formula: 

V/L+1±N=subscript value 

where 

V is the value shown enclosed in parentheses. 

L is the length of the item being tested. L can have the 
value 2, 4, or 8. 

N is the number 82768 if L is 2, 16384 if L is 4, or 8192 
if Lis 8. 

Using this formula to identify the first value, SUBCHK 
I A( 65528): 

V=65528 

L=4 (default length of array lA) 

N= 16384 

65528^4= 1 6382+ 1 = 1 6383- 1 6384=- 1 

Note: Because SUBCHK and INIT display only the last 
two bytes, a subscript value displayed may be part of a 
larger number; in this case, the subscript can be identified 
by adding, rather than subtracting, N. 



• The subscript number displayed is shown displaced from 
location in bytes, not in words. For an array typed as 
length 4, the first subscript would show beginning at 
location 0, the second at location 4, the third at location 
8, etc. Arrays typed as length 2 would be displaced by 
multiples of 2; elements typed as length 8, by multiples 
of 8. 
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FORTRAN IV VERnn/MODnn 
// PRINT Df:VICE-520i 



nn/nn/nn PAGE 001 



1 


QMENSION A( 10) ,IA(10 


2 


I=-l 


3 


1A( I )=I 


't 


1^0 


5 


IA< I)=l 


6 


! = l 


7 


IA(I1=I 


8 


1 = 10 


7 


IA( I)=I 


10 


1=11 


11 


IA( I)=I 


12 


STOP 


13 


DE8UG SUBCHK,1NIT( lAI 


14 


END 



000 TOTAL E.<RaRS FOR THIS COMPILATION 



Figure 23 (Part 1 of 2). Debug Display 



Wherever possible, assign unique names, that is, names that 
do not duplicate FORTRAN subprogram names. Figure 24 
lists the names of FORTRAN-supplied functions and 
commercial subroutines. Before assigning names to sub- 
programs, consult this list for possible duplicate names. 

If it is necessary to give a subprogram the same name as a 
FORTRAN-suppiied subprogram, include the OBJECT 
compiler option to store the subprogram object r-^'luie 
into a different library. 



The following is an example: 
At compilation time; 



// LOAO ##MAIN,-(2 






// RUN 






-DEBUG-SUBCH< 


1A(65523| 




-DEROG-I NIT 


1A(6532R|= 


-1 


-OEBUG-SUBCHK, 


IA(6!>532) 




-OEBOG-INIl 


IA(655J2)= 





-JEiJiJ^-INir 


IAIOJOOO)= 


1 


-OEBUG-INU 


I A( 000361 = 


10 


-OEBUG-SUBCHK 


lAlOOO-tO) 




-JEBUG-INIT 


1A( 00040)= 


11 



// L0AD$F0RT,F1 

// FILE NAME-$WORK, etc. 

// FILE NAME-$SOURCE, etc. 

// RUN 

'PROCESS 0BJECT(T,LIB(R2)) 

subprogram SORT 



/* 



Figure 23 (Part 2 of 2). Debug Display 



The compiler is called from F1. Ordinarily, object modules 
would be stored in the library on F1; however, the 
OBJECT compiler option on the *PROCESS statement 
directs the user-supplied subprogram SORT to the library 
on R2. 



Assigning Names to User-Supplied Subprograms 

Care should be used in naming user-supplied subprograms. 
When a subprogram is compiled, it is stored in the program 
pack library, which also contains the FORTRAN library. 
User-supplied subprograms having the same name as 
FORTRAN supplied subprograms cause the FORTRAN 
subprograms to be overlaid. 

If FORTRAN subprograms are overlaid, you can restore the 
library by reperforming program product generation, as 
described in the applicable system generation reference 
manual. Refer to Related Publications for the order 
number. 



At load module execution time, retrieve the module from 
the library by using the UPACK parameter on a linkage 
editor OPTIONS control statement. 



At execution time: 



//L0AD$0LINK,F1 

// FILE NAME-$SOURCE, etc. 

// FILE NAME-SWORK, etc. 

// RUN 

// INCLUDE NAME-MAIN,UNIT-F1 

// OPTIONS UPACK-R2 

// END 

// LOAD iVIAIN,F1 

// RUN 
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Assume that the main program (MAIN) has just been 
compiled, with the NOLINK and 0BJECT{T,LIB[F1 ] ) 
options. The linl<age editor is called from F1. The 
INCLUDE statement specifies the module to be linl< edited 
(MAIN) is located on F1. The OPTIONS statement specifies 
that the user-supplied subprogram (SORT) is located on R2. 

For Model 1 2 and 1 5, the location of the user supplied 
subprogram (SORT) may be specified by using the UPACK 
option on the *PROCESS statement when compiling the 
main program (MAIN). 

Example: 

II L0AD$F0RT,F1 
// FILE NAME-$WORK,etc. 
// FILE NAME-$SOURCE,etc. 
// RUN 

^PROCESS UPACKR2 
PROGRAM MAIN 



/' 



The compiler is called from F1. Ordinarily, the object 
modules of subprograms needed by the main program 
(MAIN) would be stored in the library on F1 ; however, 
the UPACK option on the 'PROCESS statement directs 
the linkage editor to search the library on R2 first, 
looking for the subprogram SORT. 
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A1DEC 


DUMP 


LCOMP 


READ 


STACK 


ADD 


DUNPK 




READ42 


STAK42 


A LOG 


DVCHK 


MOD 


R2501 


STAK60 


ALOG10 




MOVE 


R2560 


SUB 


CFTOD 


EDIT 


MPY 




SI 403 


COS 


EXIT 




SETINO 


S3284 




EXP 


NCOMP 


SETO 




DATSW 




NSIGN 


SET1 


TANH 


DCOS 


FCTST 


NZONE 


SHIFT 


TYPER 


DECA1 


FILL 




SHIFTR 




DEXP 




OVERFL 


SIN 


UNPAC 


DIV 


GET 




SKIP 




DLOG 




PACK 


SLITE 


WHOLE 


DLOG10 


IBTST 


PDUMP 


SLITET 




DMOD 


ICOMP 


PRINT 


SPACE 




DPACK 


INQCHK 


PUNCH 


SP1403 




DSIN 


I20R4 


PUT 


SP3284 




DSQRT 




P1403 


SORT 




DTANH 


KEYED 


PI 442 
P2560 
P3284 







Figure 24. Monies of IBM System/3 FORTRAN-Supplied Functions and Commercial Subroutines 
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Chapter 20. System Considerations 



OPTIMUM ASSIGNMENT OF $WORK AND $SOURCE 
WORK FILES 

Proper assignment of the work files, $WORK and $SOURCE, 
can improve the [)erformance of the compiler and linkage 
editor. For the Model 6 and Model 10, work files must be 
on the 5444. For the Model 12, work files must be in the 
5444 simulation areas. Model 15 allows work files on 
either the 5444, 5445, or 3340. 

The work files should be located in such a way that they 
minimize the number and distance of disk seeks in a 
particular configuration. The LOCATION parameter on 
the // FILE statement is used to fix the location of the 
work files. 



Assignment of Work Files on One Disk 

If only one disk is available, the work files should be located 
close to each other: 

//FILENAME-$WORK,UNIT-F1,LOCATION-180,TRACKS-20,PACK-xxxxxx,RETAIN-S 
// FILE NAME-$SOURCE,UNIT-F1,LOCATION-200,TRACKS-20,PACK-xxxxxx RETAIN-S 



Assignment of Work Files on Two Disks 

When two disks are available, the work files should be 
located on separate disks at the same LOCATION: 

// FILE NAME-$WORK,UNIT-F1,LOCATION-190,TRACKS-20,PACK-xxxxxx, RETAIN-S 
// FILE NAME-$SOURCE,UNIT-R1,LOCATION-190,TRACKS-20,PACK-xxxxxx, RETAIN-S 

Model 15 Assignment of Work Files on 5445 or 3340 
Disk Storage 

On the Model 15 only, work files can be assigned to the 
5445 or 3340 disk storage: 

// FILE NAME-$WORK,UNIT-D1,TRACKS-20,PACK-xxxxxx, RETAIN-S, LOCATION-100/1 
//FILENAME-$SOURCE,UNIT-D1,TRACKS-20,PACK-xxxxxx,RETAIN-S,LOCATION-100/2 
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LINKAGE BETWEEN MODULES PRODUCED BY 
SYSTEM/3 LANGUAGE TRANSLATORS 

This section describes standard linkage conventions for use 
between modules produced by the System/3 language trans- 
lators: COBOL, FORTRAN, and Assembler. Programmers 
using standard linkage conventions are able to code routines 
in the language most appropriate to the function being 
performed. Figure 25 illustrates the standard described on 
the following pages. 



* SAMPLE SYSTEM/3 LINKAGE 
ft 

* ASSEMBLER MODULE (MODA) CALLS FORTRAN MODULE (MODE) 
* 

EXTRN MODE 
MODA START X'OOOO' 



B MODE CALL FORTRAN MODULE MODE 
DC AL2(PLIST) PARAMETER LIST 
CONTROL RETURNS HERE AFTER MODULE MODE HAS BEEN EXECUTED 



* PARAMETER LIST 

PLIST EQU * 

DC AL2(SAVA) ADDRESS OF SAVE AREA 

DC AL2(PARM1) ADDRESS OF FIRST PARAMETER 

DC AL2(PARM2) ADDRESS OF SECOND PARAMETER 





DC 


XLl 


00' 


* 


PARAMETERS 






PARMl 


EQU 


* 






DC 


CL5 


FIRST' 


PARM2 


EQU 


* 






DC 


CL6 


SECOND' 



END OF PARAMETER LIST INDICATOR 



* 






* 

SAVA 


SAVE AREA 
DC 
DC 
END 


XLl'BO' 

CL6'M0DA' 

MODA 



INDICATOR BYTE -- CALLING PROGRAM IS ASSEMBLER 
CALLING PROGRAM'S NAME 



Figure 25 (Part 1 of 2). Standard Linkage 
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* 
* 
* 

XRl 
XR2 
ARR 
lAR 



MODD 



SAMPLE SYSTEM/3 LINKAGE 

FORTRAN MODULE (MODC) CALLS ASSEMBLER MODULE (MODD] 



EQU 


1 




EQU 


2 




EQU 


8 




EQU 


16 




ENTRY 


MODD 




START 


X'OOOO' 




ST 


SAVAR1,XR1 




LA 


SAVA,XR1 




USING 


SAVA,XR1 




ST 


SAVAR2( ,XR1) 


,XR2 


ST 


SAVART( ,XR1) 


,ARR 


L 


SAVARTI ,XR1) 


,XR2 


L 


1( ,XR2) ,XR2 




ALC 


SAVART( ,XR1) 


,TWO( ,XR1 


ROUTINE 





SAVE CONTENTS OF XRl 

XRl IS BASE FOR SAVE AREA 

SAVE CONTENTS OF XR2 

SAVE CONTENTS OF ARR 

XR2 POINTS TO ADDRESS OF PARM LIST 

XR2 POINTS TO PARAMETER LIST 

SET RETURN POINT 2 PAST ARR 



BODY OF 



RETURN TO CALLING PROGRAM 



SAVE 



* 
* 

SAVA 

SAVARl 

SAVAR2 

SAVART 
* 

TWO 



L 
L 
L 

AREA 
DC 

DC 
DC 
DC 
DC 

DC 
END 



SAVAR2( ,XR1) ,XR2 
SAVARK ,XR1) ,XR1 
SAVART, lAR 



RESTORE 
RESTORE 
RETURN 



XR2 
XRl 



XL1'30' 
CL6'M0DD 
XL2 '00 ' 
XL2'00' 
AL2(00) 

IL2'2' 



INDICATOR BYTE — CALLED 
CALLED PROGRAM'S NAME 
CONTENTS OF XRl ON ENTRY 
CONTENTS OF XR2 ON ENTRY 
RETURN POINT 



PROGRAM IS ASSEMBLER 



TO 
TO 



THIS 
THIS 



ROUTINE 
ROUTINE 



Figure 25 (Part 2 of 2). Standard Linkage 
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Standards 

In order to be standard, linkage nnust be accomplished as 
follows; 

1 . Each module must have a save area defined as 
follows: 

For a subprogram: 

"vteO Bit Not a main program 

Bits 1-3 000 FORTRAN 
001 COBOL 
Oil Assembler 
Bits 4-7 0000 Reserved 

EBCDIC name, left justified 

Value of index register 1 
(XR1) at entry 

Value of index register 2 
(XR2) at entry 

Return point in calling 
program 



2. 



Bytes 1 -6 
Bytes 7-8 

Bytes 9-10 

Bytes 11-12 

For a main program: 



Byte Bit 1 Main program 

Bits 1-3 000 FORTRAN 
001 COBOL 
Oil Assembler 
Bits 4-7 0000 Reserved 

Bytes 1-6 EBCDIC name, left-justified 

Note: Main program refers to the program with the 
highest level of control. 

Each module that calls another module must have 
one or more parameter lists defined as follows: 

Bytes 0-1 Address of save area in this 

program 
Bytes 2-3 Address of first parameter 

Bytes (2n)-(2n-t-1 ) Address of nth parameter 
Byte (2n+2) XL1 '00' to indicate end of 

parameter list 



Notes: 

1. The first two bytes, as well as the end-of-parameter- 
list indicator (XLI'DO') must be present in all pa- 
rameter lists. If no parameters are to be passed, the 
the parameter list is only 3 bytes long. In this 
case, byte 3 will be and the called program indi- 
cates a parameter list length of 2. 

2. Addresses in parameter lists refer to the first byte 
(byte with the lowest address of the item. 

When control reaches a program entry point, the 
address recall register (APR) must point to a 2-byte 
field containing the first byte of the parameter list. 

The assembler language code to call a FORTRAN 
subprogram would normally be as follows: 





EXTRN 


SUBR 




B 


SUBR 




DC 


AL2 (PARAMS) 


RETNPT 


EQU 


* 



Note that the pointer to the parameter list points to 
the left byte of the save area address. 

Normal return is accomplished by placing in the hard- 
ware instruction address register (lAR) a value that 
is two larger than the contents of the ARR when the 
program was entered. 

Index registers 1 and 2 (XR1 and XR2) must be 
saved upon entry in the called program's save area, 
and restored at exit. 

The address recall register need not be restored, but 
the return address must be determined and placed 
in the called program's save area. 



CONSOLE DISPLAY PANEL DIAL SETTINGS 

To aid him in debugging a compilation error, the IBM 
customer engineer can set the dial setting of the console 
display panel to the combination CEFE. For more efficient 
processing, be sure that this combination of characters is 
not present on the dial settings before beginning a 
compilation. 
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MODELS 10 AND 12 DUAL PROGRAMMING 
CONSIDiERATIONS 

FORTRAN programs can run in the dual programming 
environment (which allows two independent programs 
to be run concurrently) provided that the two programs 
do not share the same devices. For example, if the MFCU1 
is used by the FORTRAN compiler, it cannot be used by 
the other program. 



MODEL 15 CONSIDERATIONS 



Two kinds of CRT/keyboard support are available: 

• Full screen support 

• Split screen support 

Full screen support is obtained by specifying 3277 on the 
FORTRAN READ and/or PRINT device option statements. 
Split screen support is obtained by specifying 3277S. 

Logical unit numbers 5 and 6 are used for both split screen 
and full screen support. Split screen and full screen support 
cannot both be specified in the same program. 



Model 15 Spooled Environment and Multiprogramming 

FORTRAN programs can be run in a Model 15 spooled 
environment or in the multiprogramming partitions. See 
IBM System/3 Model 15 System Control Programming 
Reference Manual, GC21 -5077. 



Model 15 CRT/Keyboard Support 

The System/3 Model 15 CRT/keyboard is comprised of: 

• An IBM 3277 Display Station Model 1-a cathode ray 
tube (CRT) screen. 

• Feature 4632 -a 78-key operator console keyboard. 

Seven of the twelve 40-character lines are supported by 
FORTRAN for input and output operations. Because the 
last position is reserved for system use, a maximum of 279 
positions are available to FORTRAN. 

line 



Program Input/Output 



Messages/Responses 




Used By 
FORTRAN 



Status 



Full Screen Support 

A WRITE statement first blanks all seven lines and then 
displays up to 279 characters. A READ statement allows 
the operator to key data into the 279-position area. Be- 
cause the screen is not blanked by FORTRAN before a 
READ, a WRITE followed by a READ allows the operator 
to update the displayed record. 

line 



279-position area used for 
either input or output 




Split Screen Support 

The'first 125 positions are used for output, followed by 
15 unused (blank) positions. The next 125 positions are 
used for input, followed by 14 unused (blank) positions. 

line 



Output 



Unused 



Input 



I Unused T~ 




The WRITE statement blanks the 125-position output area 
and then displays the 125 characters. A READ statement 
blanks the 125-position input area and then accesses data 
from this portion of the screen after data has been keyed 
and displayed on the screen. 
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Page of SC28-6874-3 
Issued 25 November 1977 
By TNL: SN21-5568 

Model 15 Double Buffering for Card Devices 

Model 15 FORTRAN allows the user to double buffer the 
card I/O on the MFCU, MFCM, 1442, and 2501 . The de- 
fault of two buffers Is allocated unless either of the follow- 
ing conditions exist: 

1 . The user specifies one buffer by adding an asterisk 
(*) to the device code (for example, MFCUI *). 

2. Multiple operations are assigned to the same device 
(for example, READ, 1442; PUNCH, 1442). 

The following table shows the number of buffers allocated 
to MFCU2 or MFCM2 for allowable combinations of opera- 
tions. The asterisk after the read, punch, or print specifica- 
tion indicates a single buffer is requested. 









Number of 


Specification 




Buffers Allocated 


Read* 






1 


Read 






2 




F'unch* 




1 




Punch 




2 


Read 


Punch 




2 


Read 


Punch 


Print 


2 




Punch 


Print 




Read* 


Punch* 






Read* 


Punch 




2 


Read 


Punch* 








Punch* 


Print 






Punch 


Print* 






Punch* 


Print* 




Read* 


Punch 


Print 




Read 


Punch* 


Print 




Read 


Punch 


Print* 




Read* 


Punch* 


Print 




Read 


Punch* 


Print* 




Read* 


Punch 


Print* 




Read* 


Punch* 


Print* 





Model 15 (5704-FO2) 3741 Support 

When using the 3741 with Model 15 FORTRAN 
(5704-FO2), the following considerations apply; 

• The record length must be from 1 to 128 bytes. 

• Each sector on the diskette contains only one logical 
record. 

• All records in a file must have the same record length 
(fixed length records). 

• Records are read from or written to the 3741 one at a 
time (unblocked). 

• Double buffering is the default, single buffering may be 
specified. 

• Records are read from or v^ritten to the 3741 sequentially. 

• Reading and writing cannot be done in the same program 
using FORTRAN READ and WRITE statements. By 
using the FORTRAN Commercial Subroutines R3741 
and P3741, reading and writing in the same program can 
be done. 

• An end-of-file condition occurs for an input file when: 

— A /* statement is read. 

- A /& statement is read. 

- A /. statement is read. 

— EOD (end of data) is reached. 

For a discussion on modes of operation see IBM System/3 
374 1 Reference Manual, GC21 -5113. 



Considerations/Restrictions 

There might be a degradation in speed when the MFCUI 
and the MFCU2 print are double buffered. 
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DIFFERENCES BETWEEN 1130 AND SYSTEM/3 

This section briefly summarizes some of the differences 
between the 1 1 30 and System/3 which might affect FOR- 
TRAN processing. 



Unit Numbers 

A comparison of assignment of unit numbers to input/out- 
put devices is: 



Unit 







System/3 


System/3 


System/3 


it 




Models 10 and 


Model 6 


Model 15 


mber 


1130 Assignment 


12 Assignment 


Assignment 


Assignment 


1 


Console print 


MFCU1 read 
only 


5406 input 


MFCU1 or 
MFCM1 read only 


2 


1442 read/punch 


MFCU2read/ 


5496 input 


MFCU2or 






print/punch 


or output 


MFCM2 read/print/ 
punch 


3 


1132 print 


5203 or 1403 
print 


521 3 or 2222 

print 


1403 print 


4 








3284 print 


5 


1403 print 


5471 input 




Keyboard input 


6 
7 
8 


Keyboard input 


5471 output 




CRT output 








2501 read only 


9 


1442 punch 


1442 read/ 
punch 




1442 read/punch 



Note: tn System/3, unit numbers can be assigned to only one device; for example, if 
numbei 5 is specified for the 5471 in a program, it cannot also be assigned to a direct-access 
device in that program. If 5471 input is not specified, unit number 5 can be assigned to a 
direct-access device. 
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Device Options 

In System/3, input/output devices are specified by device 
option statements, wliich correspond to the 1 1 30 •IOCS 
statement. For example: 



1130 Usage 

*IOCS (1132 PRINTER, 
TYPEWRITER, 
1403 PRINTER) 

*IOCS (CARD, 2501 

READ, KEYBOARD) 



System/3 Usage 

// PRINT DEVICE-'1403,5471' 

// READ DEVICE-'MFCU1,MFCU2,1442,5471' 



•IOCS (1442,PUNCH,CARD) // PUNCH DEVICE-'MFCU2,1442' 



*IOCS (DISK) 



// DAD44 UNITN0-'n1,n2 

// DAD45UNITNO-'n1,n2 



Specifying the BCD Option 

Any 1 130 FORTRAN card decks that were punched using 
the BCD card punch (the 026 keypunch) can be read by 
the System/3 compiler by specifying the BCD option on 
the »PROCESS compiler option statement. (*PROCESS 
is described in Chapter 13, Compilation.) 



Read/Punch on the Same Card 

In 1130 FORTRAN the same card can be read and punched 
using the 1442 card read punch. System/3 FORTRAN does 
not permit input/output operations to be performed on the 
same card except for certain commercial subroutines. The 
MFCU2 and 1442 can be used as either, but not both, an 
input or output device in the same program. 
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Call Link 

In System/3, main programs can call each other using the 
INVOKE statement, which corresponds to the 1 130 CALL 
LINK statement. The PROGRAM statement must be 
specified as the first statement of each main program to be 
invoked. Further, all common blocks sharing data between 
main programs must be changed to GLOBAL statements. 
For example: 



1130 Usage 

COMMON A,B(10),J 

CALL LINK (MAIN2) 



System/3 Usage 

PROGRAM MAIN 
GLOBAL A, B(10),J 



INVOKE MAIN2 
PROGRAM MAIN2 
GLOBAL C,D(10),J 



Associated Variables in Subroutines 

In System/3, if an associated variable is passed as an argu- 
ment to a subroutine, it is not automatically updated when 
input/output operations are performed in the subroutine. 
To ensure that the variable is updated, pass it through 
COMMON. For example: 



1130 Usage 



DEFINE FILE8(r,s,f,IJ) 

IJ=25 

CALLWRTR(IJ) 



END 

SUBROUTINE WRTR(IVAR) 



System/3 Usage 

COMMON IJ 

DEFINE FILE8{r,s,f,IJ) 

IJ=25 

CALL WRTR 



END 

SUBROUTINE WRTR 

COMMON IVAR 



If any of the programs being invoked require more storage 
than the invoking program, a CORE compiler option state- 
ment should be specified explicitly stating the largest 
amount of storage required. (Additional information on 
using the CORE compiler option statement with PROGRAM 
and INVOKE statements can be found in Chapter 19, 
FORTRAN Implementation Considerations.) 



WRITE (8'IVAR) 



WRITE (8'IVAR) 



Library Routines 

In System/3, if calls are made to the math library (for 
example, SIN, SORT), the GENERIC statements should 
be included to ensure that the proper library module is 
loaded for the argument type. 

For library routines using integer arguments (for example, 
MIN, MAX, FLOAT), integer arguments must be typed as 
INTEGER»4. 
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Passing Arrays 



Use of COMMON, EQUIVALENCE, and DEFINE FILE 



In the 1 1 30, arrays not used in a subroutine need not be 
dimensioned. In System/3, arrays must be dimensioned 
in all subroutines in which they are passed, even though 
they are not used in a particular subroutine. For example: 



1130 Usage 

DIMENSION 1(20) 



ALLSUEJI (I) 



SUBROUTINE SUBI(J) 



CALLSUB2(J) 
(J not used m SUB1) 
SUBROUTINE SUB2(K) 
DIMENSION K(20) 



System/3 Usage 

DIMENSION 1(20) 

CALLSUB1 (I) 



SUBROUTINE SUBI(J) 
DIMENSION J(20) 



CALLSUB2(J) 
(J not used in SUB1) 
SUBROUTINE SUB2(K) 
DIMENSION K(20) 



in System/3, the relative si/e of double precision variables 
to single precision variables (REAL»8 to REAL" 4) is 2:1. 
In 11 30 the relative size of EXTENDED PRECISION 
variables to single precision variables is 3:2. Thus, it may 
be necessary to change COMMON and EQUIVALENCE 
statements and to increase the size of records in DEFINE 
FILE statements. 



Rounding 

1130 FORTRAN does not round when converting data 
items on input; System/3 FORTRAN does. Thus, if any 
FORTRAN rounding code is present in 1130 FORTRAN 
programs, remove it before converting to System/3. 



Passing Scalar Arguments to Subroutines 

When scalar arguments are passed to a subroutine, Syjtem/3 
copies the arguments into the subroutine's data area, uses 
them in the subroutine, then copies the values back to the 
calling program when the subroutine returns control. With 
the 1130, the values in the calling program are used direct- 
ly; they are neither copied to the subroutine nor copied 
back to the calling program. 



When arrays are passed as arguments to subroutines, 
System/3 passes the address of the array in the calling 
programs data area. 



Length Specification of Variables 

In System/3, INTEGER*2 and REAL»8 variables can be 
specified using the IMPLICIT statement, which corresponds 
to the 1 130 "ONE WORD INTEGERS and *EXTENDED 
PRECISION statements. For example: 



1130 Usage 

*ONE WORD INTEGERS 
♦ EXTENDED PRECISION 



System/3 Usage 

IMPLICIT INTEGER»2 (l-N) 
IMPLICIT REAL*8(A-H,0-$) 



System/3 FORTRAN requires some variables to be 
INTEGER «4, such as: variables and arguments to INTEGER 
intrinsic functions, arguments to commercial subroutines, 
and logical unit numbers. 



Consider the follovi/ing code: 

J=1 SUBROUTINE SUM(L,M,N) 

CALLSUM(J,J,5) L=M+N 

RETURN 

END 

Before control is returned to the calling program, L has the 
value 6, M the value 1, and N the value 5. However, under 
System/3, when control returns, the value of J is still 1 
because the variable M (value 1 ) is copied back to J after 
the variable L. 

To avoid this problem, before converting an 1 1 30 program, 
recode the parameter list in a CALL statement so that any 
value being tested is not specified more than once, for 
example, CALL SUM(K,J,5). 
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Forms Control 

The 1 1 30 has a c<ii riage control tape to sense channel 1 2 or 
the overflow line jnd channel 1 , which is the beginning of 
a page. This provides for a limited amount of page format 
ting. Because Systern/3 has no carriage control tape, all 
forms control must be incorporated into the program by 
the programmer. 

The 1 1 30 also can print a program name on each page of a 
program listing by the use of an « » card. This is an invalid 
card for System/S. 



Commercial Subroutines 



A1 Data Format 

The A1 format is the same in Systern/3 aiHi 1 130, except 
for the sign of a numeric field. In System/3, ttie siyn of a 
numeric field in A1 format is assumed to be (.arned as tin; 
zoned portion of the rightmost character: X'C jljinaty 

1100) or X'F' (binary 1 1 1 1 ) for positive; X'U (tjuiaiy 

1101) or X'60' (minus) over the units fjositioj' foi negative. 
A negative .?ero is represented by a X"0(J' or X'60' (minus). 

In 1 130, the sign of a numeric fii.'ld in A) toimal is a 
multiple punch over the rightmost characlei : 

11 punch for negative anri 12 punch loi ;)ositi>ji'. 
A negative zero is represented by a X'60' (inmusl. 



The Systenr/3 FORTRAN Commercial Subroutines Pack 
age includes three 1442 card read punch routines. PI 442 
is used for card punching, READ42 for card reading, and 
STAK42 for selecting alternate stackers. The correspond- 
ing 11 30 routines were PUNCH or P1442, READ, and 
STACK. The System/3 commercial subroutines support 
allows the 1442 to be tised as a combined file. 



Decimal Data Format 



Negative Zero 

In System/3, a negative zero is re|)re:i(:irL.,'d hy j < XT)!'' 
In 1130, a negative zero is represeiUet! i)/ ..in X'iiO Com 
mercial subroutines require a minus ( ) over l-u- ^sr-tv.- jk^si 
tion for a negative value. If the units })<>siti(jri is ,. /ii ., 
the 1130 cannot recognize the value, itvcr- 'oie '>:>. <;; 
cumverition of punching a minus (X'60') m ttij u'l :-, uosi 
tion instead of the zero was implementeti for 1 130. 



In System/3, Dl format corresponds to the standard 
System/360 zoneil decimal format: one digit per eight-bit 
byte, or two digits per INTEGER*2 array element. The 
digit is carried in tlie low-order four bits of the byte, with 
the high order foui bits set to 1 's (X'F'). However, the 
high-order four bits of the low-order byte are used to carry 
the sign of the number: X'C (binary 1 100) or X'F' 
(binary 1 1 1 1 ) for positive; X'D' (binary 1101) for negative. 



Number of Record Fields in the DbFIIMF !-!LE Statement 

System/3 does not use this number as ,) f:!>ee!< '•'.:< cc-.;>>:n.j 
records outside the range of the DEF INE r ■'. !: : i j.fj !i;-!ii 
The range or size of the file is set tiy 'h-j ! Si. [. - s.:;'.'r:i(-il 
TRACKS and RECORDS parameters. 



In 1 130, Dl format consists of one digit per word, right 
justified. The decinal field is stored in an array, one digit 
per element. The sign of the digit is carried with the right- 
most digit. If the number is negative, a negative one (-1 ) 
is added to the rightmost digit. This must be done because 
the 1 130 cannot represent a negative zero. 
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Part 4. Reference 



This section contains: 

• FORTRAN statement reference 

• System/3 FORTRAN Intrinsic and external library 
functions 

• FORTRAN service subprograms 



Ffetertnce 
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Chapter 21. FORTRAN Statement Reference 



This S(!(:lu)ii lists llu: FORTRAN sl.iliMncMils in dlpluihcMicil 
orilci .111(1 siiitini.n i/(^s I'iich ol IIkmii usIihj IIk; iollowiiu| 
loi mal: 

• SttiliMiicnt iidiTK; 

• Gi.'iu.'Uil (orrii ol Ihc sUilerncnl 

• Examples of stJli^mcMil usi.' 

Arithmetic Assignment Statement 

Gci)('t\)l Form: a b 
wheic 

a IS a variable) or array element 

b is a variable, array element, or arithmetic expression 



Exiiinples: 




A=B 


A=A+B 


A-B(1) 


A=SIN(A«*I) 


A-B(l) 


A(1)=FUNC(B,C,D) 


A=l 


l=A 


A-6 


1 = 1+6 


A=6.4 





Arithmetic IF Statement 

Gi.'iK.'r.j/ Form: IF (aln, .ii; ,n , 

when,' 

a IS an anltimetir; ex|)tessi(jii 

ni,n2,an(ln, an; stati.Tru.Til niiinl)(;t'. ol (;x(;(.ut,ilj| 
statein(;nts in the [jroijratn unit (;(jntainiri(| the II 
statement. 



Exiiiriplos: 

IF (A- B) 10,4,30 
40 D C««2 



D B+C 



30 C=-D««2 



10 E=(F*B)/D+1 

The IF statement compares the value of the differeDc;; 
between A and B. If the value is negative, a branr;h Is rnadf: 
to statement number 10, if zero, a branch is made to 
statement number 4; and if positive, a branch r, rriud- ;o 
statement number 30. 
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AT Statement 

General Form: AT n 

where 

n is an executable statement number in the program or 
subprogram to be debugged. 



Examples: 
200 X=Y+Z 



CALL Statement 

General Form: CALL name (a i ,82,83, . . . ,an) 
where 

name is the name of a SUBROUTINE subprogram. 

a is an actual argument that is being supplieu .0 the 
SURROUTINE subprogram. It can be a variable, array 
name, array element, arithmetic expression, or subpro- 
gram name. 



DEBUG TRACE 
AT 200 
TRACE ON 



END 
BACKSPACE Statement 

General Form: BACKSPACE i 



where 

i is an unsigned integer constant or INTEGER»4 
variable that is the logical unit number of a sequential 
file located on a magnetic tape or disk unit. 



Examples: 



BACKSPACE 10 
BACKSPACE L 



Examples: 

CALL OUT 

CALL MATMPY(X,5,40,Y,7,Z) 

CALL SUB1(X+Y*5,ABDF,SINE) 

CALLSUB(P,Q,R,I) 



COMMON Statement 

General Form: COMMON a, (k, ),a2 (kj ) an(kn) 

where 

a is a variable or array name that is not a dummy 
argument. 

k is optional and is composed of from one to three 
unsigned integer constants, separated by commas, 
representing the maximum value of each subscript in 
the array. 



Examples: 

Calling Program 

COMMON A,B,C,R(100) 
REAL A,B,C 
INTEGER R 



CALL MAPMY 



Subprogram 

SUBROUTINE MAPMY 

COMMON X,Y,Z,S(100) 
REALX,Y,Z 
INTEGER S 
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ComFmted GO TO Statement 

General Form: GO TO (rii.nj n^), i 

where 

n is the number of an executable statement in the 
program unit containing the GO TO statement. 

i is an integer variable whose value is in the range Ki<n. 



Examples: 

GOTO (25,10,7, 10), ITEM 
3 C=7.02 



C=E**2+A 



25 L=C 



10 B=21.3E02 

A branch is made to a statement number based on the value 
of the integer variable, ITEM. If ITEM has a value of 1, the 
branch is to the first statement enclosed in parentheses in 
the GO TO statement (statement number 25); if ITEM has a 
value of 2, the branch is to the second statement 
(statement number 10), etc. 



CONTINUE Statement 

General Form: CONTINUE 

Examples: 

DO 30 1 = 1,20 



DATA Statement 

General Form: DATA k, /ii *di/,k2/i2 ♦da /, . . . ,kn/in*dn/ 

where 

k is a list containing variables, array elements (in which 
case the subscript quantities must be unsigned integer 
constants), or array names. 

d is a list of constants, (integer, real, hexadecimal or 
literal). 

i* is optional and is an unsigned integer constant 
appearing before d, indicating that d is to be specified 
i times. 



Examples: 

DIMENSION D(5,10) 

DATA A,B,C/5.0,6.1,7.3/,D,E/25»1. 0,25*2.0,5.1/ 

DIMENSION A(5),B(3,3) 

DATA A/5»1.0/,B/9»2.0/,C/'FOUR7 



DEBUG Statement 

General Form: DEBUG option option 

where 

option may be one of the following, specified in any 
order: 

SUBCHK(n,,n2 np) 

where n is an array name and is optional. 

TRACE 

INIT(mi ,m2 , . . . ,mn) 

where m is the name of a variable or an array and is 
optional. 

SUBTRACE 



GO TO 7 
30 CONTINUE 



Examples: 

PROGRAM FIRST 



DEBUG SUBCHK(SUB),TRACE,iNIT(SUM,M!JLT 
SUBTRACE 
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DEFINE FILE Statement 

General Form: DEFINE FILE Ui (ri ,Si .f, ,Vi ),U2 (r2,S2,f2 -^2 ), 
■• • Un (rn,Sn,fn,Vn) 

where 

u is an unsigned integer constant that is the logical unit 
number. 

r is an unsigned integer constant that specifies the 
number of records in the file associated with u. 

s is an unsigned integer constant that specifies the 
maximum size (in characters, bytes, or words) of each 
record associated with u. 

f specifies whether data is to be read or written with or 
without format control. The f code may be one of the 
characters L, to indicate that a file may be processed 
(read or written) either with or without format control 
(s is interpreted to specify bytes); E, to indicate that a 
file is processed with format control (s specifies bytes); 
or U, to indicate that a file is processed without format 
control (s is interpreted to specify words). 

V is an integer variable called the associated variable. 

Examples: 

DEFINE FILE 8(50,100,L,I2),9(100,50,L,J3) 



Direct-Access READ/WRITE Statement 

See READ Statement (Direct-Access) 

DO Statement 

General Form: DO n i = m, ,m2 .mj 
where 

n is the statement numl.ier of an executable statement 
appearing after the DO statement and in the same 
program unit. 

i is a non-subscripted integer variable called the DO 
variable. 

mi ,m2 , and ms are either unsigned integer constants 
greater than or non-subscripted integer variables. The 
value of mi should not exceed that of mo . The value 
of m2 cannot exceed 2^ ' -2. ms is optional and, if 
omitted, is assumed to be 1. If ma is omitted, the 
preceding comma must also be omitted. 

The statements that physically follow the DO statement up 
to and including the statement numbered n are called the 
range of the DO. The value of m, is called the initial value. 
The value of m2 is called the test value. The value of mj is 
called the increment. 

Example 1: 



DIMENSION Statement 

General Form: DIMENSION ai (ki),a2{k2) an(kn) 

where 

a is an array name. 

k is composed of from one to three unsigned integer 
constants, separated by commas, representing the 
maximum value of each subscript in the array. 



K=0 
L=10 

DOB J0B = 1,L,2 
K=K-i-1 
5 M(J0B)=N(J0B)-K»J0B 



Examples: 

DIMENSION A(10),ARRAY(5,5 ,5), LIST(10,100) 
DIMENSION B(25,25),TABLE(5, 10,15) 



Example 2: 



15 DO 25 J=1,1000 

25 INV(J)=INV(J)-IOUT(J) 

35 
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END Statement 

Genera/ Form: END 



Explicit Specification Statement 

See INTEGER Statement/REAL Statement. 



Examples: 

PROGRAM FIRST SUBROUTINE SECOND 



CALL SECOND 



STOP 
END 



RETURN 
END 



EXTERNAL Statement 

General Form: EXTERNAL ai ,82 ,33 , . . . a,, 

where 

a is the name of a subprogram that is passed as an 
argument to other subprograms. 

Examples: 

EXTERNAL MULT 



END FILE Statement 

General Form: END FILE i 

where 

i is an unsigned integer constant or INTEGER*4 variable 
that is the logical unit number of a sequential file on a 
magnetic tape or disk unit. 



Examples: 

END FILE 10 
END FILE L 



EQUIVALENCE Statement 

General Form: EQUIVALENCE (a, j ,3] 2 ,ai 3 , 

(32 1 '32 2 .32 3, ■■■)•• • 

where 

a is a variable or array element. 



CALLSUB(J,MULT,C) 

FIND Statement 

General Form: FIND(u'r) 

where 

u is an unsigned integer constant or INTEGER»4 variable 
that represents a logical unit number of a direct-access 
file. 

r is an integer expression that represents the relative 
position of a record within the file associated with u. 

Examples: 

DEFINE FILE 8(1000,80,L,IVAR) 
10 FIND(8'50) 



Examples: 

DIMENSION C(100,100),A(50,50),B(100) 
EQUIVALENCE (C(1),A(1)),(C(2501),B(1)) 

GLOBAL A,B,C 
DIMENSION D(3) 
EQUIVALENCE (B,D(1)) 



15 READ(8'50)A,B 
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FORMAT Statement 

General Form: xxxxx FORMAT (cjSiCjSz . . . c„) 

where 

xxxxx is a one-to-five digit statement number. 

c is a format code that describes integer data (code I), 
real data (codes D, E, F), character data (A), literal data 
(H, or data enclosed in apostrophes), fields to be skipped 
(X), or a position in a FORTRAN record where data 
transfer is to begin (T), and the number of characters in 
a field. 

s is a separator, which may be either a comma or any 
number of slashes. Slashes indicate the beginning of a 
new record. 



FUNCTION Statement 

General Form: type FUNCTION name *s(ai ,32,83, ... an) 
where 

type is optional and can be INTEGER or REAL 

name is the name of the FUNCTION 

s is optional when type is specified and represents one of 
the length specifications for its associated type (2 or 4 
for INTEGER, 4 or 8 for REAL). 

a is a dummy argument. 



Examples: 

FUNCTION CALC(A,B,J) 

INTEGER FUNCTION CALC*2(I,J,K) 



Examples: 

10 FORMAT (E10.5, 016.10,17, E7.2,D12.7) 
2 FORMAT (3F9.2,2D15.10/8E10.5) 
30000 FORMAT (' THE FOLLOWING IS A LIST OF 
PRIMESV(I5)) 



Function Definition Statement 

General Form: name(a, ,a2,a3, . . . ,ar,)=expression 
where 

name is the statement function name. 

a is a dummy argument. 

expression is any arithmetic or relational expression that 
does not contain array elements. 

Examples: 

FUNC(A,B)=3.»A+B**2.-HX-(-Y-i-Z 
SUM(A,B,C,D)=A-fB+C-i-D 



GENERIC Statement 

General Form: GENERIC 

Examples: 

GENERIC 
REAL*8 A,B,C,D 
C=COS(A) 
D=DCOS(B) 

GLOBAL Statement 

General Form: GLOBAL aj (k, ),a2 (kj ) a,i(kn) 

where 

a is the name of a variable or an array. 

k is optional, and is a subscript composed of one through 
three unsigned integer constants, separated by commas, 
representing the maximum value of each subscript in 
the array. 

Examples: 



PROGRAM FIRST 
GLOBAL A,B,C(5,5), 
DdO.lOO) 



PROGRAM SECOND 
GLOBAL,X,Y,Z(25), 
DATA(10,100) 
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GO TO Statement 

(See also Computed GO TO Statement.) 

General Form: GO TO n 

where 

n is the number of an executable statement in the 
program unit containing the GO TO statement. 

Examples: 



GO TO 6 
12 X=Y-Z 
6 A==2.*B 



IF Statement 

See Arithmetic IF Statement/Relational IF Statement. 

IMPLICIT Statement 

General Form: IMPLICIT type*Si (ai i ,3,2 ,...),... , 
type*Sn(ani,an2 ) 

where 

type is either INTEGER or REAL. 

s is optional and represents one of the length specifica- 
tions for its associated type (2 or 4 for INTEGER, 4 or 8 
for REAL). 

a is a single alphabetic character or a range of characters 

in the set A,B Z,$ in that order. The range is 

denoted by the first and last characters of the desired 
range separated by a minus sign (for example (A-D)). 



Examples: 

IMPLICIT INTEGER»2(A-H),REAL*8(I-K) 
IMPLICIT REAL(A-H,0-Z),INTEGER(l-N) 



INTEGER Statement 

General Form: INTEGER*s aj (kj ),a2 (k2 ) an(kn) 

where 

*s is optional and represents one of the INTEGER length 
specifications, 2 or 4. 

a is a variable, array, or function name. 

k is optional and gives dimension information for arrays. 
Each k is composed of one through three unsigned 
integer constants, separated by commas, representing the 
maximum value of each subscript in the array. 



Examples: 

INTEGER»2 ITEM, VALUE 
INTEGER*4 LIST,VAL2 
INTEGER B(100) 



INVOKE Statement 

General Form: INVOKE name 

where 

name is the name of a main program specified in a 
PROGRAM statement. 

Examples: 

PROGRAM FIRST PROGRAM SECOl^JD 



INVOKE SECOND 

PAUSE Statement 

General Form: PAUSE n 

where 

n is an optional integer constarit that is printed with the 
PAUSE statement for identification. 



Examples: 

PAUSE 
PAUSE 50 
PAUSE 00002 
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PROGRAM Statement 

General Form: PROGRAM name 

where 

name is the name assigned to the main program. 

Examples: 

PROGRAM SECOND 



READ Statement (Direct-Access) 

General Form: READ(u'r,f,ERR=s) list 
where 

u is an unsigned integer constant or INTEGER«4 variable 
that represents a logical unit number of a direct-access 
file. 

r is an integer expression that represents the relative 
position of a reco.^d within the file associated with u. 

f is optional and, if specified, is the statement number of 
a FORMAT statement that describes the data being read. 

ERR=s is optional and specifies the statement number 
(s) in the same piogram unit to which to transfer 
control if an en jr occurs during data transfer. 

list is an I/O list. 



Examples: 

DEFINE FILE 8(500,100,1, ID1),9(100,28,L,ID2) 
9 READ (8'16,10)(M(K),K=1,10) 



13READ(9'ID2-i-5)A,B,C,D,E,F,G 



READ Statement (Sequential) 

General Form: READ (u,f,END=s,ERR=t) list 
where 

u is an unsigned integer constant or INTEGER*4 variable 
that represents the logical unit number of the device to 
be read from. 

f is optional and can be the statement numijer of a 
FORMAT statement or an asterisk (*). 

END=--s is optional and specifies the statement number (s) 
in the same program unit to which to transfer control if 
an end of file condition is encountered. 

ERR=t is optional and specifies the statement number (t) 
in the same program unit to which to transfer control if 
an error occurs during data transfer. ERR is ignored if 
the file is not a disk or tape file. 

list is an I/O list (optional if f is specified). 



Examples: 

READ (1,98)A,B,(C(I,K),I = 1,10) 

READ (J)A,B,C 

READ (l,»,END=200) (ARRAY(I),I = 1,25),B(2),C(6)) 



REAL Statement 

General Form: REAL*s ai (kj ),a2 (kj ), . . . ,an(kn) 
where 

*s is optional and represents one of the REAL length 
specifications, 4 or 8. 

a is a variable, array, or function name. 

k is optional and gives dimension information for arrays. 
Each k is composed of one through three unsigned 
integer constants, separated by commas, representing 
the maximum value of each subscript in the array. 



Examples: 

REAL ITEM(5,5),B(100) 
REAL*8MULT 
REAL»4 JMULT 
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Relational IF Statement 

General Form: IF (a)s 

where 

a is a relational expression. 

s is an executable statement except a DO statement or 
another relational IF statement. 

A relational expression is formed by combining two arith- 
metic expressions with one of the six relational operators: 
• GT., .LT., .EQ., .IME., .GE., or .LE.; which stand for 
greater than, less than, equal to, not equal to, greater than 
or equal to, and less than or equal to, respectively. The 
periods must precede and follow the relational operators, 
as shown. 

Examples: 

The two following IF statements have the same effect; 

IF (A.LT.B)A=B 
200 • 



IF (A-B) 100,200,200 
100 A=B 
200 • 



RETURM Statement 

General Form: RETURN 

Examples: 

SUBROUTINE COPY (A,B,N) 



RETURN 
END 

FUNCTION CALC(A,B,J) 



RETURN 
END 



REWIND Statement 

General Form: R E V\/ 1 N D i 

where 

i is an unsigned integer constant or INTEGER«4 variable 
that is the logical unit number of a sequential file on a 
magnetic tape or disk unit. 

Examples: 

REWIND 10 
REWIND L 

Sequential READ/WRITE Statements 

See READ Statement (Sequential f/l/VR I TE Statement 
(Sequential). 

STOP Statement 

General Form: STOP n 

where 

n is an optional integer constant that is printed with the 
STOP statement for identification. 

Examples: 

STOP 
STOP 25 

SUBROUTINE Statement 

General Form: SUBROUTINE name(ai ,a2,a3 a„) 

where 

name is the SUBROUTINE name. 

a is a dummy argument that can be a variable name, 
array name, or the dummy name of another SUBROU- 
TINE or FUNCTION subprogram. 



Examples: 

SUBROUTINE COPY(A,B,N) 
SUBROUTINE NULL 
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TRACE OFF Statement 

General Form: TRACE OFF 

Examples: 
200 X=Y+2 

210 X=Y-2 



DEBUG TRACE 
AT 200 
TRACE ON 



AT 210 
TRACE OFF 
END 



TRACE ON Statement 

General Form: TRACE ON 

Examples: 

200 X=Y+2 



DEBUG TRACE 
AT 200 
TRACE ON 



END 



WRITE Statement I Direct- Access) 

General Form: WR iTE (u'r.f) list 

where 

u is an unsigned integer constant or INTEGER -4 variable 
that is the logical unit number of a direct access file 

r is an integer expression that represents the relative 
position of a record within the file associated with u. 

f is optional and, if specified, is the statement number of 
the FORMAT statement that describes the data being 
written. 

list is an I/O list (optional if f is specified). 

Examples: 

DEFINE FILE 8(500,100,L,ID1 ),9(100,28,L,ID2) 

8 WRITE (8'16,10)(M(K),K = 1, 10) 



n WRITE (9'ID2+5)A,B,C,D,E,F,G 

WRITE Statement (Sequential) 

General Form: WR ITE (u,f) list 

where 

u IS an unsigned integer constant or INTEGER»4 variable 
that is the logical unit number of a device to be written 
to. 

f is optional and can be the statement number of a 
FORMAT statement or an asterisk (*) for list-directed 
I/O. 

list is an I/O list (optional if f is specified). 

Examples: 

WRITE (3,75) A,(B,(I,3),I = 1,10,2),C 
WRITE (4) ARRAY 
WRITE (3,») l,N(l) 
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Chapter 22. System/3 FORTRAN Intrinsic and External Library Functions 



Many commonly used mdthematicai functions or calcula- 
tions are provided by the System/3 FORTRAN IV language. 
Matliematical functions are called in two ways; explicitly, 
when you include the function name in a source language 
statement; and implicitly, when a certain notation (such as 
converting a real number to an integer number) appears 
within a source language statement. Explicitly called 
functions are known as external functions, because the 
programmer calls them. Implicitly called functions are 
intrinsic, because the compiler generates the calls to them. 

To a programmer using the System/3 FORTRAN IV 
mathematical functions, it is of no importance whether a 
specific function is intrinsic or external unless you wish to 
detach the function name by specifying external. 

System/3 FORTRAN IV intrinsic functions include 
routines for determining maximum, minimum, and absolute 
values, converting from real to integer and from integer 
to real, and increasing or decreasing the precision of a 
number. External functions include sine, cosine, logarithm, 
and square root routines. 

Figure 27 summarizes the intrinsic functions; Figure 28, 
the external functions. Figure 29 lists the accuracy of the 
external functions. 



The presentation of each algorithm is divided into its 
major computational steps; the formulas necessary for each 
step are supplied. For the sake of brevity, the needed 
constants are normally given only symbolically. (The 
actual values can be found in the assembly listing of the 
subprograms.) Some of the formulas are widely known; 
those that are not so widely known are derived from more 
common formulas. The process leading from the common 
formula to the computational formula is sketched in 
enough detail so that the derivation can be reconstructed 
by anyone who has an understanding of college mathema- 
tics and access to the common texts on numerical analysis. 
All approximations were derived by the so-called "minimax" 
methods. The approximation sought by these methods can 
be characterized as follows. Given a function f(x), an 
interval /, the form of the approximation (such as the 
rational form with specified degrees), and the type of error 
to be minimized (such as the relative error), there is 
normally a unique approximation to f(x) whose maximum 
error over / is the smallest among all possible approxima- 
tions of the given form. Details of the theory and the 
various methods of deriving such approximation are 
provided in the reference. ®The accuracy figures cited 
take round-off errors into account. Minor programming 
techniques used to minimize round-off errors are not 
described here. 
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The following discussion describes the algorithms used in 
the mathematical subroutines. 



ALGORITHMS 

This section contains information about the method used to 
compute each function. The information for explicitly 
called subprograms is arranged alphabetically according to 
the specific function of each subprogram (that is, 
exponentiation, logarithmic, etc). 
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Any of modern numerical analysis texts can be used as a reference. 
Such texts are A. Ralston's A First Course in Numerical 
Analysis (McGraw-Hill Book Company, Inc., New York, 1965), 
and C. T. Pike's Computer Evaluation of li/lathematical Functions 
(Prentice-Hall, Inc., Englewood Cliffs, New Jersey). 



Information for the implicity called subprograms is 
arranged alphabetically according to function, and 
alphabetically by entry name within that function. 
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General Function 


Entry 
Name 


Definition 


Arguments 


Function Value Returned] 


No, 


Type 


Range fT) 


Type 


Range© 


Absolute value 


lABS 

ABS 
DABS 


V -- ixl 


1 


INTEGER >4 


Any INTEGER 
argument 


INTEGER «4 




1 
1 


REAL -4 
REAL -8 


Any REAL 
argument 


REAL -4 
REAL -8 




Maximum and 
minimum values 


MAX© 

MAXO 

AMAXO 

MAX1 

AMAXI 

DMAX1 


V ^ max (x ,x,|) 


>2 
>2 
>2 
>2 
>2 
>2 


INTEGER >4 
INTEGER «4 
INTEGER «4 


Any INTEGER 
argument 


INTEGER <4 
INTEGER -4 
REAL ^4 




REAL >4 
REAL '4 
REAL '8 


Any REAL 

argument 


INTEGER .4 
REAL '4 
REAL '8 




MIN© 
Ml NO 
AMINO 
MINI 
AM INI 
DMINl 


V = min (X| , . . . ,x„) 


>? 

'■:'■ 7 

>2 
>2 
>2 
>2 


INTEGER '4 
INTEGER «4 
INTEGER «4 


Any INTEGER 
argument 


INTEGER «4 
INTEGER »4 
REAL .4 




REAL '4 
REAL '4 
REAL '8 


Any REAL 
argument 


INTEGER .4 
REAL -4 
REAL -8 




Eruncation 


AINT 

INT 

IDINT 


y =-' (sign x) • n 
where n is the 
largest integer ^5; !x| 


i 
1 
1 


REAL *A 
REAL «4 
REAL *8 


Any 


REAL *4 
INTEGER *A 
INTEGER .4 




Modulo arithmetic 


MOD 

AMOO 

DMOD 


y -" remainder 
g) , that IS, 
V '^ X 1 (modulo X; ) 


2 

n 

/. 

2 


INTEGER «4 
REAL '4 
REAL »8 


X. --/^ 


INTEGER ^4 
REAL '4 
REAL -8 




Float 


FLOAT 
DFLOAT 


Convert from 
INTEGER 
to REAL 


1 

1 


INTEGER «4 
INTEGER «4 


Any INTEGER 
argument 


REAL '4 
REAL *8 




Fix 


IFIX 


Convert from REAL 
to INTEGER 


1 


REAL »4 


Any REAL 
argument 


INTEGER '4 




Transfer of sifjii 


ISIGN 

SIGN 
DSIGN 


V ^ (sign X; ) • X| 
X, / 


2 


INTEGER -4 


Any INTEGER 
argument 


INTEGER *4 




2 


REAL «4 
REAL -8 


Any REAL 
argument 


REAL *4 
REAL *8 




Positive difference 


IDIM 

DIM 


y - X| -min(x| ,Xn ) 


2 


INTEGER »4 


Any INTEGER 
argument 


INTEGER .4 




2 


REAL *4 


Any REAL 
argument 


REAL *4 




Obtain most 
significant part of ,• 
REAL aiyument 


SNGL 




1 


REAL .8 


Any REAL 

argument 


REAL '4 




Precision increase 


DBLE 




1 


REAL '4 


Any REAL 

argument 


REAL '8 




® 7= le^-d-ie"^) 

(!>' Alias. This name ca 


for single pre 

n be used in p 


cision and 16*^^ • (1 -16"''* 
lace of the REAL • 4 or IN 


for double precision. 
TEGER " 4 function name. 





Fiijure 27. Intrinsic IVIathematical Functions 
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General Function 


Mame 


Definition 


Arguments 


Function Value Returned 


No. 


Type 


Range© 


Type 


Range © 


Natural and 

common logdnthiTi 


LOG@ 

Ai.OG 


V - log^, X 
or 




REAL .4 
REAL -4 


X > 


REAL .4 
REAL »4 


- lB0.218<y< 




DLOG 


y ^ in X 




REAL «8 




REAL *8 


174.673 


LOG 10® 
ALOG10 
LOG 10 


y - log,,, X 




REAL '4 
REAL »4 
REAL '8 


X > 


REAL *4 
REAL «4 
REAL »8 


- 78.268<y< 
75.859 


Exi,'C>nerU:d! 


EXP 


y - e'^ 




REAL «4 


-180.218<x< 


REAL '4 


< y < 7 


- . — . . 


DLXP 






REAL «8 


174.673 


REAL «8 




S(v !,iic root 


SORT 
OSQR T 


V / X or 




REAL »4 
REAL "8 


x>0 


REAL »4 
REAL '8 


0<y<yi 


ArrtaiKient 


AT AN 


y - arctan x 




REAL «4 


Any REAL 


REAL *4 


Ti ^., ... 77 




DATAN 






REAL '8 


Argument 


(in radians) 
REAL »8 


2 ■*= V ~* 2 


.. .. 













(in radians) 




Sine niiid cosine 


SIH 


y -^ sin X 




REAL *4 
(in radians) 


ix|<(2"' -rr) 


REAL »4 


- 1 < y < 1 




DS:f\l 






REAL -8 


lx|<(2'^" -n) 


REAL '8 






___. . 






(iri radians) 








COS 


y - cos X 




REAL »4 


lxi<(2'* -tt) 


REAL »4 


-1 < y < 1 










(in radians) 










DCOS 






REAL .8 


lx|<(2^" -tt) 


REAL «8 




^ ... 








(in radians) 








Hypcrbfiiic 
tangent 


TANH 
DTAIMH 


e-^ - e^ 




REAL ^4 
REAL *8 


Any REAL 
argument 


REAL »4 
REAL *8 


- 1 < y < 1 


e^ + e-^ 


Noics 








'^iJ-f Ui'" -(1^1 


6 'i toi single precision antl 16^~' '(l-ie 


) for double precision. 




V '..■ Aims. Phis nan 


e may he used m place of the REAL .4 function name. 





Figure 28. External Mathematrcal Functions 
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Function Name 


© 
Sample Type 


Argument Range 


Error 


Absolute/Relative 




Maximum 


Root Mean Square 




ALOG 


U 
U 

u 


< X a; 0.5 

0.5===,xs^ 1.5 
1.5 < xi*. 5.0 


5.41 X 10"" 
9.20 x 10" 
5.45 X 10 ' 


2 40 X 10"' 
2.89 X 10" 
2.27 X 10 ■' 


Al)sf)lut(,' 




ALOG10 


u 
u 
u 


< X s= 0.5 
0.5 < X a; 1.5 
1.5 a; X a 5.0 


5.54 X 10 " 
8.53 X 10" 
9.15 X 10" 

1.08 X 10 ' 
9.53 X 10^ 


1.22 X 10'^ 
3.10X 10" 
3.20 X 10" 

2.87 X 10" 
4.57 X 10^ 


Alisoltili! 




AT7>iNi 


u® 

u 
u 


=»; X =A t.in 1 .0 
tan 1.0 ^ x=A 100 




COS 


X X -~: n 
Tt'hx ==-. 1 00 


1.02 X 10 ' 
1.13x 10 ' 


2.80 X 10" 
3.02 X 10" 


Absolute 




DATAN 


u® 


< X ^=: tan 1 .0 
tan 1.0 < X ^, 100 


2.23 X 10 " 
2.13X 10 "■ 


0.97 X 10 '" 
7.72 X 10 '' 


Al)s()ltili^ 




DCOS 


u 
u 


*:* X =.^ n 
TT a; X =-^ 1 00 


2.44 X 10 '' 
2.97 X 10 " 


7.73x 10 '" 
8.57 X 10'"' 


Absoltite 




DEXP 


u 
u 


Ixl A, 1 
Ixl sS 170 


1.51 X 10"'" 
1.09 X 10 "' 


3.06 X 10" 
2.65 X 10 '^ 


Relativf^ 




DLOG 


u 
u 
u 


0.177 a; X a;o.5 

0.5 < X a; 1.5 
1.5>^xA:5.0 


1.34 X 10 '" 
2.61 X 10 '^ 
1.36 X 10'"" 


5.13X 10'^ 
9.04 X 10'" 
5.37 X 10'" 


Absolute 




D LOG 10 


u 
u 
u 


0.177 <x a; 0.5 
0.5 A= X a; 1.5 
1.5=Ax=A5.6 


1.94 X 10"'^ 
1.45 X 10''' 
2.01 X 10'^ 


6.38 X 10 '" 
5.11 X 10 '" 
6.37 X 10'" 


Absolute 




DSIN 


u 
u 


A, X < TT 

7r< X ^ 100 


2.69 X 10 '^ 
2.96x 10 '^ 


7.54 X 10'" 
8.61 X 10'" 


Absolute 




DSQRT 


E 


16''''a; x< 16" 


1.11 X 10"* 


2.72 X 10 '^ 


Relative 




DTANH 


u 
u 
u 


0< x<0.55 

0.55 a; x a; 21.0 

21.0<x<32.0 


1.44 x 10'" 
1.22 X 10" 
1.14X 10"'" 


4.16X 10'" 
4.14 X 10''" 
1.66 X 10'" 


Absolute 




EXP 


u 
u 


IxK 1 
IxK 170 


4.63 X 10^ 
4.73 X 10'^ 


1.29 X 10'^ 
1.16x 10''' 


Relative 




SIN 


u 
u 


0< x< n^ 
7r< x< 100 


1.06 X 10'^ 
1 . 1 3 X 10" 


3.02 x 10'" 
3.04 X 10" 


Absolute 




SORT 


E 


le'"' <x< 16''' 


4.77 X 10"^ 


1.17 X 10'^ 


Relative 




TANH 


u 
u 
u 


OA;x<0.55 
0.55 <xA: 9.0625 
9.0625 < x< 16.0 


5.40 X 10" 
5.77 X 10" 
2.68 X 10'" 


1.72 X 10'" 
1.85 X 10" 
4.94 X 10''' 


Absolute 




(T) E = exponentiailv distributed argument sample 

U = uniformly distributed argument sample 
(T) Sample arguments are distributed so that arctangents are uniformly distributed between arctan 1 and arctan 100. 





Figure 29. Accuracy of External Mathematical Functions 
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The accuracy of an answer produced by these algorithms is 
influenced by two factors; the performance of the subpro- 
grarti and the accuracy of the argument. The effect of an 
argument error upon the accuracy of an answer depends 
upon the mathematical function involved and not upon the 
particular coding used in the subprogram. 



CONTROL OF PROGRAM EXCEPTIONS IN MATHE- 
MATICAL FUNCTIONS 

The FORTRAiNl mathematical functions were coded with 
careful control of error situations. A result is provided 
whenever the answer is within the range representable in 
the floating-point form. !n order to be consistent with 
FORTRAN control of exponent overflow/underflow 
exceptions, the foHowing typos of conditions are recog- 
nized aiicl handled separately. 

When the magnitude of the function value is too large to be 
represented in the floating-point form, the condition is 
called a terminal overflow: when the magnitude is too 
small tu De represented, a terminal underflow. On the other 
hand, if the function value is representable, but if execution 
of the chosen algorithm causes an overflow or underflow 
in the process, this condition is called an intermediate 
overflow or underflow. 



4. Intermediate underflows are detected and not allowed 
to give an indication, in other words, spurious 
underflow signals are not allowed. Computation of 
the function value is successfully carried out. 

5. Terminal overflow conditions are screened out by the 
subroutine. The argument is considered out of range 
for computation and an error diagnostic is given. 
Terminal overflow conditions are handled by forcing 
a floating-point overflow exception. This provides 
for the detection of overflow in the same manner as 
for an arithmetic statement. Terminal overflows can 
occur in the function subroutines EXP and DEXP. 

6. Terminal underflow conditions are handled by forcing 
a floating-point underflow exception. This provides 
for the detection of underflow in the same manner as 
for an arithmetic statement. Terminal underflows 
can occur in the function subroutines EXP and 
DEXP. 

For implicit arithmetic subroutines, these rules do not apply. 
In this case, both terminal overflows and terminal under- 
flows cause respective floating-point exceptions. 



Function subroutines in the FORTRAN library are coded 
to observe the following rules for these conditions: 

1. Those arguments for which the answer can overflow 
are excluded from the permitted range of the 
subroutine. 

2. When the magnitude of the answer is less than 16"*' 
zero is given as the answer. 

3. Algorithms which can cause an intermediate overflow 
have been avoided. Therefore an intermediate over- 
flow should not occur during the execution of a 
function subroutine of the library. 
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EXPONENTIAL FUNCTIONS 

EXP, REAL»4 Exponential Function (Module Names EXP,$FOIVIM,$FOIVIC) 

Argument Reduction 

Acceptable Range: Any argument that results in a function value that can be re[)resented 
in REAL*4 fornnat is valid. This ranqe is approximately; 
-180,218 < argument < 174.673 



Error Conditions: If the argument is too large, the overflow indicator is set on, and the 
result is the largest positive REAL*4 number. If the argument is too small, the underflow 
indicator is set on, and the result is ^ero. 



Reduction: The argument is multiplied by logi (e) and separated into integer and fraction- 
al parts for calling the module $FO^y]C, which computes REAL "4 values of 2"^. (SFOMC 
is described in Implicitly Invoked Exponentiation Subprograms in this chapter.) 



Computational Method 

The result is computed by the 2"" routine, with x = logj (e) • argument. This method 
depends on the identify: 

gargunicnt _ olog^d--) •argument 



DEXP, REAL*8 Exponential Function (Module Names DEXP,SFOMN,SFOMD) 

Argument Reduction 

Acceptable Range: Any argument that results in a function value that can be represented 
in REAL*8 format is valid. This range is approximately: 
-180.218 < argument < 174.673 



Error Conditions: If the argument is loo large, the overflow indicator is set on, and the 
result is the largest positive REAL*8 number. If the argument is too small, the under- 
flow indicator is set on, and the result is zero. 



Reduction: The argument is multiplied by log2 (e) and separated into integer and 
fractional parts for calling the module $FOMD, which computes REAL*8 values of 2^. 
(SFGMD is described in Implicitly Invoked Exponentiation Subprograms in this chapter.) 



Computational Method 

The result is computed by the 2^ routine with x = log2 (e) ■ argument. This method 

depends on the identify: 

argument = o'ogz'^' • argument 
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LOGARITHMIC FUNCTIONS 

ALOG, REAL*4 Natural Logarithm (Module Names ALOG, $F0M5, $FOMI) 

Argument Reduction 

The range testing and argument reduction are done in module $F0M5, whicli also 
computes tlio iogj of the reduced argument. 



Acceptable Range: The argument must be a positive normalized number. Zero is not 
acceptable because the logarithm of zero is undefined. Negative numbers are not accep- 
table because the logarithm of a negative number is a complex number with a nonzero 
imaginary pan. 



Error Conditions: If the argument is zero, the result is set to the negative number with 
the largest possible magnitude, and bit 7 of the FTEST byte is set to 1 . If the argument 
IS negative, the logarithm of its magnitude is computed, and bit 7 of the FTEST byte is 
set to 1 . 



Reduction: The argument is separated into two parts, c' and m'. These are computed from 
the characteristic and the mantissa of the argument, c and m respectively, as follows: 

c' = 4(c-64) - a - 'A 

m' = im; -2'' 
where a is the number of leading zeros in m. This produces c' and m' such that: 

-259% <c'< 251V. 
Vi < m' < 1 
The argument (representing the number 16(c-64) • Iml) can also be represented as: 

2" •/2 -m' 



Computational Method 

The logj of v' 2 • m' is computed using the polynomial approximation; 

log, (/2-m'is.2illi::L£2/2.)J / 2(m' - /2/2)y- 

m72f/2/4 Po^P' \^m'/2 + /2/4/ 



'- i->2 



2(m'-/2/2) V / 2(m'-/2/2) y 

m72 + /2/4/ ^^ \m72 + /2/4/ 



The log, of the argument is then c' + logj (/2 • m') so the result can be computed as: 
log^(argument) - log^, (2) • logj (argument) 

= log (2) -(c' + loga (/2 -m')) 
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ALOG10,REAL*4 Base 10 Logarithm (Module Names ALOG10,$FOMK,$FOM5) 

Argument Reduction 

Identical to ALOG, including the acceptable range and error conditions. 

Computational IVIethod 



is: 



Identical to ALOG except for the last step, which 

log, (argument) = logio(2) • (c' + log2(/2 • m')) 
The only difference from the computation of ALOG is that logj o (2) is used instead of 
log (2). 



DL0G,REAL»8 Natural Logarithm (Module Names DLOG,$FOMJ,$FOM6) 

Argument Reduction 

The range testing and argument reduction are done in module $F0M6, which also computes 
the log2 of the reduced argument. The acceptable range, error conditions, and reduction 
are identical to those for ALOG, except that the reduced mantissa occupies 7 bytes 
instead of 3. 

Computational Method 

The log2 of / 2 • m' is computed by the same method as for ALOG, using a seventh 
order polynomial instead of a third order, as in ALOG, to achieve the accuracy required. 
The logp(argument) is then computed as; 

log (argument) = log (2) • (c' + Ioqj (/2 • m')) 



DLOG10,REAL»8 Base 10 Logarithm (Module Names DLOG10,$FOML,$FOM6) 

Argument Reduction 

Identical to DLOG, including the acceptable range and error conditions. 

Computational Method 

Identical to DLOG except for the last step, which is: 
logio (argument) = logio(2) • (c' + log2 (/2 • m')) 
The only difference from the computation of DLOG is that logi o (2) is used instead of 
logg(2). 
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TRIGONOMETRIC FUNCTIONS 

SIN/COS, REAL»4 Sine/Cosine (Module Names SIN,COS,$FOM1,$FOM3) 

Argument Reduction 

Acceptable Range: The sine/cosine routine accepts normalized arguments in the range 

largurnenti <ti -2" S8 -10^ 
and zero. Arguments outside this range are not accepted because they are not precise 
enough to yield a meaningful result after the argument is reduced to the principal range. 
This range !imit is not due to a limitation of the algorithm used. Rather, it is a 
consequence of the periodicity of the trigonometric functions and the representation used 
for REAL*4 numbers. 



Error Conditions: If an argument is out-of-range, a zero result is returned, and bit 6 in 
the FTEST byte is set to 1. 



Reduction: ! he argLiiTient is separated into two parts after multiplying its absolute value 
l)y 4/77. Let q be tlie integer part of the result, and r be the fractional part of the result. 
If X is the aigumeni 

(sin ) isin ; .TT , 4 „^ i sin ) , tt , 

(cos) ?cos i 4 TT (cos! 4 

Negative arguments are treated by adding 4 to q if the function desired is SIN, since 
sin (-xj -= sin(x + it) = sin(x + 4(— )). No change is required for COS, since cos (-x) = 
cos (x)- 

The computation of COS is transformed into the computation of SIN by adding 2 to q, 

since cos (x) = sin (x + - ) = sin (x + 2( - )) 

_ 2 4 

Let Qo = q mod 8. 

Then, for qo ="- 0. sin |x) ^ sin ( J " r ) , 

cio = 1, sin (x) -■= cos T- (1 - rlV 

Qo = 2, sin (x) = cos ( — • r j , 

qo = 3, sin (x) = sin (— (1 - r) j , 

Mo = 4, sin (x) = -sinf — • r j , 

qo "^ 5, sir' (x) - -cosf— (1 - r)j , 

qo =^ 6, sin (x) =■ -cos(-- • r j , 

Cio = "A sin (x) = -sm^— (1 - r) j , 

These formulas reduce each case to the computation of either sin ("T ' i"! ) o'' cos 
{— • r, j ; where 1 , is either r or ( 1 - r), and is within the range, < rj < 1 . 
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Computational Method 

sin ( — • r,j is computed by a polynomial of the form: 

sin [^ Tij ssrj (ao +airi^ +a2ri'' +a3ri*). 

cos (t ■ ^i ) is computed by a polynomial of the form: 

cos (^ • ri^ S 1 +b,ri^ +b2ri'' + bjr,* + b4ri* 
These polynomials are computed by calling module $F0M3. 

ATAN, REAL»4 Arctangent (Module Names ATAN,$FOME) 

Argument Reduction 

Acceptable Range: Any argument in the range representable in REAL»4 format is valid. 

Error Conditions: None. 

Reduction: The magnitude of the argument x is used to determine two numbers, A and 
Z, as follows; 

for tan (0) < |x| < tan {—) , A - 0, z = |x| - tan (0) = ix] 

for tan (^) < |x| < tan (f^) - A = 7r/8, z = |xi - tan (|) 

for tan (:f|)< lx| < tan {--^ , A = 7r/4, z = jxl - tan {^ 

for tan (|^)< lx| < tan (^) , A = 3 7r/8, z = |x| - tan (|^) 

for tan (t^)< 1x| <X.m {^\ , A = 7t/2, z = - — 



Computational Method 

Let y = tan"' (|x|). Then, using the formula for the tangent of the difference of two 
angles, the following identity can be derived: 

z 



., / tan A - tan y \ „ -i 

A + tan ' ( :; —j- -— ) = A + tan ' 

\1 + tan A • tan y y 



sec^ (A) + z • tan(A) 



This formula is used for A = 0,—,-—, or— - , with the arctangent being approximated by 
the polynomial 

tan'' (R) s R (po + Pi • R^ + P2 - R"* + P3 • R*) 

For A =(— \ since tan'' (|x|) =(- j+ tan"' (- —Y the formula is 

y = A + tan' (z) 
Finally, if the argument was negative, the result is made negative, because tan'' (-x) = 
-tan'' (x) 
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DSIN/DCOS, REAL*8 Sine/Cosine (Module Names DSIIM, DCOS,$FOM2,$FOM4) 

Argument Reduction 

Acceptable Range: The precision available in REAL»8 variables allows an acceptable 
range of arguments of normalized values in the range 

iargumenti < tt • 2*° S 3 • 10' ^ 
and zero. See the description of SIN/COS for a discussion of the reasons for this range 
limit. 

Error Conditions: Same as SIN/COS. 



Reduction: Same as SIN/COS except that the reduction is carried out in REAL*8 arith- 
metic. 



Computational Method 

sin i~ • r,j is computed by a polynomial of the form; 

sin (~ ■ r,^ =r, (a,ri^ +a2r,'' +a3r/ + a4 rj ^ +asr,'° +a6ri'') 

cos (—■ • r,j is computed by a polynomial of the form: 

cos (^~ ■ rA =1 +bir,^ + bj r, " + bjr/ + b4 rj** + b; r, ' " + be r, '^ +b7r, 
These polynomials are evaluated by calling module $F0M4. 
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DATAN, REAL»8 Arctangent (Module Names DATAN,$FOMF) 

Argument Reduction 

Acceptable Range: Any argument in the range representable in REAL'S format is valid. 

Error Conditions: None. 



Reduction: The magnitude of the argument, x, is used to determine two numljers, A and 
Z, as follows: 



for tan (0) < |x| < tan('^^ , A = 0, z = |x| - tan (0) = |x| 

for tan (^) < |x|< tan (|) , A = -^ . z = |x| - tan (^) 

fortan(l) < ,x|< tan (^ ) .A=| , z = |x| ~ tan (|) 

for tan (^) < IxK tan (|^) , A = |^ . z Hx| - tan (|) 

/77r\ ,, ,^ /97r\ „ 27r , /27r\ 

fortan(-) ^ |x|< tan (-^^j .A=- .z = |x|-tan (-) 



for tan (^^ <|x|<tan (J^) ' '^ = f" '^ = 



x| 



Computational Method 

The computation is by the same method as for ATAN, except that the polynomial 
approximation for tan"' is 

tan"' (R)s R(po + p, • R^ + P2 • R" + Pa • R* + P4 " R** + Ps •«'" + Pe 'R'^ + P? -R'") 
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SQUARE ROOT FUNCTIONS 

SORT, REAL*4 Square Root (Module Names SORT and $FOMG) 

Argument Reduction 

Acceptable Range: The square root routine successfully computes the square root of 
any nonneyative number representable in REAL»4 format. Negative numbers are out- 
of-range since the stjuare root of a negative number is imaginary. 



Error Conditions: If the argument is negative, bit 5 in the FTEST byte is set to 1, and the 
square root of the argument's magnitude is taken. 



Reduction: If the argument is zero, a zero result is returned immediately. Otherwise, 
the characteristic of the argument is tested. If it is even, no change is made to the 
mantissa. If it is odd, the mantissa is divided by 16. A divide instruction is not used to 
perform this division, the opesand is shifted by additions. 



Computational Method 

The characteristic, c, of the result is computed as: 
c(resu!ti = c(argument)/2 for c(argument) even 
c(result) - (1 4 c(argument))/2 for c(argument) odd 

The mantissa, m, of the result is the square root of the mantissa of the reduced argument. 
Because: 

1/256 <; m(reduced argument) < 1, 

1/16 «;m(,result)< 1, 
and the result is therefore a normalized REAL*4 number. 



This method reflects the identities: 



16'^<"«""'^-""-m(argument)] = [igclargument) ] . [ ^(a.g^^ent) 



for c(argument) even 



T '- r n '/" r -1 '/^ 

igc(argument) .^(g^g^^g^jjj ^^ ^^g, + c(argumcnt) J . [m(argument)/1 6 J for c(argument) odd. 

The square root of the reduced mantissa is computed by a series of successive subtrac- 
tions, with each set of subtractions determining one hexadecimal digit of the result 
from two hexadecimal digits of the argument's reduced mantissa and remainder (if 
any) and the results from the previous sets of subtractions. This method is similar to the 
normal method for the hand extraction of square roots. At the completion of the 
subtractions, at least 21 binary digits of the result are correct. A correction to the last 
binary digits is computed and applied if necessary. 

Accuracy 

The method produces the correct result in the characteristic and the correct result, 
rounded to 6 hexadecimal digits, for the mantissa. 
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DSQRT, REAL*8 Square Root (Module Names DSQRT and $FOMH) 

Argument Reduction 

Identical to that for SORT except that the argument is in REAL'S format. Acceptable 
range and out-of-range action are the same. 

Computational /[/iethod 

Identical to SORT except that 14 hexadecimal digits are developed in the result mantissa, 
and the subtractions are carried out only to the precision necessary at each stage in the 
development of the result mantissa. 

Accuracy 

The method produces the correct result in the characteristic, and the correct result, 
rounded to 14 hexadecimal digits, for the mantissa. 
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HYPERBOLIC TANGENT FUNCTIONS 

TANH, REAL*4 Hyperbolic Tangent (Module Names TANH,$F0I\/10,$F0MM) 

Argument Reduction 

Acceptable Range: Any number representable in REAL»4 format is acceptable. 

Error Conditions: None. 

Reduction: None. 

Computational Method 

In the range ix| < .55, tanh x is computed with the approximation: 
tanh(x) s? X • [1 -■ x^ ■ (c, ~ 5- )] 

C2 + C3 • X 



In the range .55 < jxj < 9.0625 the approximation is; 
tanh(x) ;- Sign (x) \~ ,5 - .5 ( — ^^^ - 1)1 

vtfhere 2 = c/ ' '' " '" ^ ~ ^"f 
The REAL "4 exponential module, SFOIVIM, is used to compute e^ '"' 
For ix| < 9.0625, T-,nh{x) = sign (x) • 1 .0 

DTANH, REAL»8 Hyperbolic Tangent (Module Names DTANH,$F0MP,$F0MN) 

Argument Reduction 

Acceptable Range: Any number representable in REAL*8 format is acceptable. 

Error Conditions: H 01 le . 

Reduction: None 

Computational Method 

In the range ixj < .55, tanh x is computed with the approximation: 



tanh (x) s X 



Cq + X ^ (C) + C2X ^ J^ 



do +x' (d, +x' (d2 +x'))j_ 
In the range .55 < |x! < 21 .0, the approximation is; 



tanh (x) = sign (x) .5 - 

wherez^e'(»/2 1n3-|xl) 

ie REAL*8( 
For |x| > 21.0, tanh (x) = sign (x) • 1.0 



n^^-')] 



The REAL*8 exponentiation module, $FOMN, is used to compute e^ '"' 
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IMPLICITLY INVOKED EXPONENTIATION SUBPROGRAMS 

$F0M7, Subprogram for l**J (Module Name $F0M7, Secondary Entry Point #F0M7) 

Argument Reduction 

Acceptable Range: Any pair of arguments for which the result does not exceed the 
integer range is valid, except that I = and J < are invalid. 



Error Conditions: If I = and J < 0, bit 3 in the FTEST byte is set to 1, and a result of 
zero is returned. No indication is given if the result exceeds the integer range. This range 
is: 

- 2^ • < Result < 2^ ' - 1 for Integer »4 

-2'^ < Result<2'^ - 1 for Integer *2 



Reduction: No reduction is performed other than the check for invalid arguments. 



Computational Method 

Five special cases are checked first: 

If I = 0,J > 0, the result is zero. 

If I ¥=0, J = 0, the result is 1. 

If I = 1, the result is 1 for any J. 

If I = -1, the result is -1 for J odd, + 1 for J even. 

If I 9^ 1, J < O.the result is zero. 
If none of these special cases exists, J is positive and the result is computed as follows: 
Set a partial result equal to I, then scan J for its leftmost bit having the value 1. For 
each bit position in J to the right of the leftmost 1 bit, square the partial result, and if 
the bit is a 1, multiply the partial result by I. This method is based on the identity: 

l-f = |03O -Z^O+jjg -229 + . ..+Jo -20) 

= (J30)230 _ ,|J29j229 . . (^0)2° 

= (( . . .(|J30)2 . |J29)2 . . . . )2 . |Jo 

where J indicates the bits of J, with Jq being the rightmost bit. The partial result be- 
comes the final result when all the bits of J are processed. The method is the same for 
INTEGER»2 operands, except that the operands contain fewer bits, and a secondary 
entry point to the module is used. The compiler uses the entry point #F0M7 when J is 
INTEGER*2, regardless of the length of I. I is always in INTEGER»4 form for this 
module as a result of the automatic extension of INTEGER*2 to INTEGER»4 when the 
register is loaded before this module is invoked. 



Accuracy 

The result is exact, provided that the result does not exceed the allowable range. 
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SF0M8, Subprogram for A**J (Module Name $F0M8) 

Argument Reduction 

Acceptable Range: Any pair oi arguments that produces a result representable in REAL*4 
format is acceptable, except that argument pairs for which J is negative and the result's 
magnitude is in the range 1 16"*^ ,(16*^ (l-ie"*))"' ] are not acceptable. 

Error Conditions: If A ^ 0.0 and J < 0, bit 2 of the FTEST byte is set to 1 , and the 
result is set to 0.0. Other out-of-range conditions are handled as follows: 





|Aj < 1.0 


|A|> 1.0 


J>0 


Underflow Indicator On 
iResuIti = 


Overflow Indicator On 
IResuIti = 16^'^ (1-16") 


J<0 


Underflow Indicator On 
Divide Check 
Indicator On Q 
!ResulLi - 1.0 


Overflow indicator On 
IResuIti = [16" (1-16"'')]"' 



® 



The result of 1 .0 is due to a division of 1 .0 Ijy the zero resulting from the 
underfiowi when a'J 'is computed. 



Reduction: No reduction is performed on the arguments after the test for A = 0.0 
and .J < 0. 



Computational Method 

The arguments are tested for these special cases: 

If A - 0.0 and J > G, the result is 0.0 

If J - 0, the result is 1.0 
Otherwise, A*»i,J| is computed using the same method as for integers in $F0M7, except 
that REAL*4 arithmetic is used for the multiplications. Then, if J were negative, the 
reciprocal of the result is taken. If J is INTEGER*2, it is extended to INTEGER»4 by 
the instruction that loads J before this module is invoked. 



$F0M9, Subprogram for D**J (Module name $F0M9) 

Identical to SFOIVIS for A* »J except that the arithmetic and results are REAL*8 and 
the range limit of the result is [16" (1-16""*)] "' when J < and |D| < 1.D0. 
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$FOMA, Subprogram for A*.B (Module Names $FOMA,$FOM5,$FOMC) 

If A IS not REAL»4, the complli.'i inserts msinictions lo coiivi.'tl A lo REAL»4 format 
heforu $FOMA is invoked. Tluis, $FOMA itscll coiripuK.-s only (RFAI_ «4) « « (REAL "4). 



Argument Reduction 

Acce/jtiible Range: For A > 0, the value of B must |)io(luce a ri'sult re|jtes(,'ntaf)li.' in 
RtAL"4 format. For A 0,B must be tjreati^r than zero. A < is invalitl. 



Error Conditions: If A > and th(; result is too iarye, the overflow indicator is turni.'d 
on and the lesult is set lo the iarcjest [)ositive REAL«4 nuinher. If A > and the r(>sult 
is too small, the underflow indicator is turned on and thi; result is set to zero. If A ^ 
and B is neyative, liit ] m the FTEST byte is set to 1 ,jihI the result is set to zero. If 
A ->; 0, bit 7 in the FTEST byte is set to 1 and ttie absolute value of A is used. In this 
case, underflow or overflow can also occur if the result is too small or too large, 
res()ectively; the results are the same as for A ■ 0. 



Reduction : No reduction is [jerformeti in this module. 



Computational Method 

The method is based on the identity 

a'' =i 2'' ' '"*-'2'' 
The REAL*4 logj module, $F0M5, is called with A as the argument. The result Is 
multiplied by B and passed as the argument to the REAL ♦4 2^* module, $FOMC. This 
result is then returned as the result of the exponentiation. 



$FOMB, Subprogram for A*»B (Module Names $FOMR,$FOM6,$FOMD) 

If A is REAL»4, or if B is INTEGER *2, INTEGER«4, or REAL«4, the compiler inserts 
instructions to convert them to REAL*8 format before $FOMB is invoked. Thus, 
$FOMB itself computes only (REAL*8) •♦(REAL«8). 



Argument Reduction 

The range, error conditions, and argument reduction are identical to those for the 
REAL*4A««B module, $FOMA, except that: 

1. The result can be slightly greater without overflow since the largest REAL»8 
number is larger than the largest REAL*4 number. 

2. The largest positive REAL*8 number is the result in case of overflow. 



Computational Method 

The method is identical to that for the REAL»4A*»B module, $FOMA, except that the 
REAL'S modules for 2^ and logj , SFOMD and $F0M6, are used. 
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$FOMC, REAL*4 Subprogram to Compute 2" (Module Name $FOMC) 

Argument Reduction 

Acceptable Range: Any argument that results in a function value that can be represented 
in REAL*4 format is valid. This range is approximately: 
-260 < X < 252 



Error Condition: If x is too large, the overflow indicator is turned on and the result is 
the largest positive REAL*4 number. If x is too small, the underflow indicator is turned 
on and the result is zero. 



Reduction: The argument is received in two parts, an integer part, i, and a fractional 
part, f. The fractional part is brought into the range [-72,72] by computing i' and f 
as follows: 

if f > '/2, f' = f-1 and i' = i + 1 

if f <-y2, f'-f + 1 and i'== i + 1 

otherwise f = f and i' = i 
Then i is separated into two parts, i'l , and i'2 , which satisfy the relation 

i = 4 • i'l , + i'2 with - 4 < i'2 < - 1 
The desired result can be written: 

2^ = 2' ^ ' = 2' ^ ^' = 2"^'' ■'' '2 + f = Ifi'i • 2' "^ •2'' 



Computational Method 



Compute 2f using the approximation: 



;.f. 1 ,0 / (2f') •P((2fV) 

V Q((2fV)-4 [(2f') •P((2fV)] 
Where 



P((2fV)=Po +P, •((2f')^) 
Q({2fV)=q„ +q, •((2f')') 

Multiply the result by 2' 2, and multiply that result by 16' 1 by adding i, ' to its charac- 
teristic. 
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$FOMD, REAL*8 Subprogram to Compute 2" (Module Name $FOMD) 

Argument Reduction 

The argument reduction, range, and error conditions are identical to those for the 
REAL*4 2^ subprogram, $F0IV1C, except: 

1. The upper limit of the range is slightly greater, since the largest REAL*8 number 
is greater than the largest REAL*4 number. 

2. The result for an argument too large is the largest REAL*8 number. 

Computational /VIethod 

The method is the same as for the REAL*4 2^ subprogram, except that one more term 
Is used in the polynomials P and Q: 

P((2f)^) = Po +pj ((2f)^) + p2 ((2f)^)' 
Q((2f)^)=qo +qi ((2f)^) + p2 ((2iff 
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Chapter 23. FORTRAN Service Subprograms 



MACHINE INDICATOR TEST SUBPROGRAMS 

The machine indicator subprograms test the status of pseudo- 
indicators and return a value to the calling program. When 
the indicator is zero, it is off; when the indicator is other 
than zero, it is on. In the following descriptions of the sub- 
programs, / represents an integer expression and / represents 
an integer variable. 



Pseudosense Light Subprogram (Entry Names: SLITE/ 
SLITET) 

This subprogram is used to alter, test, and/or record the 
status of pseudosense lights. Either of two entry names 
(SLITE or SLITET) is used to call the subprogram. The 
particular entry name used in the CALL statement depends 
upon the operation to be performed. 

If the four sense lights are to be turned off or one sense 
light is to be turned on, entry name SLITE is used. The 
source language statement is: 

CALL SLITE (i) 

where i has a value of 0, 1 , 2, 3, or 4. 

If the value of i is 0, the four sense lights are turned off; if 
the value of i is 1, 2, 3, or 4, the corresponding sense light 
is turned on. If the value of i is not 0, 1 , 2, 3, or 4, halt 
code 14 is issued and execution of this module or phase 
is terminated. 



Note: If tlie value of i is not 1 , 2, 3, or 4, halt code 
15 is issued and execution of this module or phase is 
terminated. 

j has a value returned by the subprogram. 1 indicates 
the sense light was on; 2 indicates the sense light was off. 



Divide Check Subprogram (Entry Name: DVCHK) 

This program tests for a divide-check exception (divisor 
= zero) and returns a value that indicates the existing condi- 
tion. After testing, the divide-check indicator is turned 
off. This subprogram is called by using entry name DVCHK 
in a CALL statement. The source language statement is: 

CALL DVCHK (j) 

where j is set to 1 if the divide-check indicator was on, or 
to 2 if the indicator was off. 



Overflow Indicator Subprogram (Entry Name: OVERFL) 

This subprogram tests for an exponent overflow or under- 
flow exception and returns a value that indicates the exist- 
ing condition. After testing, the overflow indicator is turned 
off. This subprogram is called by using the entry name 
OVERFL in a CALL statement. The source language state- 
ment is: 

CALL OVERFL (j) 



If a sense light is to be tested and its status recorded, entry 
name SLITET is used. Regardless of its status before the 
test, after a sense light is tested, it is always set off. The 
source language statement is: 

CALL SLITET (i,j) 



where j is returned by the subprogram to indicate the 
following: 

1 = floating-point overflow condition occurred last. 

2 = no overflow condition occurred. 

3 = a floating-point underflow condition occurred last. 



where 



i has a value of 1 , 2, 3, or 4, and indicates which sense 
light to test. 
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UTILITY SUBPROGRAMS 

The utility subprograms perform the following operatioi;s 
for the FORTRAN programmer: 

• Terminate execution (EXIT) 

• Dump a specified area of storage (DUMP/PDUMP) 

• Test the bits of a setting of the address/data switch on 
the System/3 console (DATSW) 

• Test an error indicator (FCTST), 

• Test for an inquiry request (INOCHK/SETINQ) 

• Retrieve the system date and time-of-day (CFTOD). 

End Execution Subprogram (Entry Name: EXIT) 

The end execution subprogram terminates execution and 
returns control to the operating system. (EXIT performs 
a function identical to that performed by an unnumbered 
STOP statement.) This subprogram is called by using the 
entry name EXIT in a CALL statement. The source 
language statement is: 

CALL EXIT 

Storage Dump Subprogram (Entry Names: DUMP/PDUMP) 

This subprogram dumps a specified area of storage. Either 
of two entry names (DUMP or PDUMP) can be used to call 
tne subprogram. The entry name is followed by the limits 
of the area to be dumped and the format specification. The 
entry name used in the CALL statement depends upon 
whether you want to resume execution of the FORTRAN 
program after the dump. 

If execution of the load module or phase is to be terminated 
after the dump is taken, entry name DUMP is used. The 
source language statement is: 



f indicates the dump format and can be one of the 
following: 

= hexadecimal 
3= INTEGER»2 
4= INTEGER*4 
5= REAL»4 
6= REAL»8 

Any positive number other than the preceding results in a 
hexadecimal dump, provided the number is less than 256. 
(The low-order byte of this argument is all that is used. If 
the number is negative or greater than 255, you must deter- 
mine the bit pattern in the low-order byte to determine the 
dump format.) 

When hexadecimal format is used, the dump program 
assumes that the upper limit of the dump is a variable 8 
bytes long. If it is actually 2 or 4 bytes long, the last 6 or 
4 bytes of the dump (respectively) are not part of the upper- 
limit variable. 

If execution is to resume after the dump is taken, entry 
name PDUMP is used. The source language statement is: 

CALL PDUMP (ai,b),fi an,bn,fn) 

where a, b, and f have the same meanings as for DUMP. 

DUMP/PDUMP output is directed to the FORTRAN error 
logging device. See PRINT and NOPRINTER Device 
Option Statements for more information. 



DUMP/PDUMP Programming Considerations 

A load module or phase can occupy a different area of 
storage each time it is executed. To ensure that the appro- 
priate areas of storage are dumped, the following conven- 
tions should be followed. 



CALL DUMP (ai ,bi,fi ^aK-^n) 



where 



a and b are variables whose names indicate the limits of 
storage to be dumped (either a or b can be the name of 
tne upper or lower limit of storage), which must be in 
the same program or subprogram or in common: 
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Transaction Logging Subprogram (SUBR81) 5704-FO2 
only 

This subprogram is used with $TRLOG to log transaction 
oriented data to tape. The source language statement is: 

CALLSUBR81(i,j) 

where 

i is an integer *2 variable or array element and must 
contain the length of the data to be logged. The length 
must not exceed 2,040 bytes. 

j is a variable, an array element, or an array containing 
the data to be logged. 

For additional information about transaction logging 
($TR LOG), see IBM System /3 Model 15 System Control 
Programing Concepts and Reference Manual, GC21 -5162. 

Example: 

INTEGER*2 LGTH 
INTEGER*4 LOGDAT(32) 
DATALGTH/128/ 



CALLSUBR81 (LGTH,LOGDAT) 



CALLSUBR81 (LGTH,LOGDAT) 

If an array and a variable are to be dumped at the same 
time, a separate set of arguments should be used for the 
array and for the variable. The specification of limits for 
the array should be from the first element in the array to 
the last element. For example, assume that B is a REAL 
number, and TABLE is an array of 20 elements. The 
following call to the storage dump subprogram could be 
used to dump TABLE and B in the hexadecimal format 
and teminate execution after the dump is taken: 

CALL DUMP(TABLE(1 ),TABLE(20),0,B,B,0) 

If an area of storage in common is to be dumped at the 
same time as an area of storage not in common, the argu- 
ments for the area in common should be given separately. 
For example, assuming A is in common and B is not, the 
following call to the storage dump subprogram should be 
used to dump the variables A and B in REAL*8 format 
Without terminating execution: 



Cage of SC28-6874-3 
Issued 29 Ses^tcmber 1978 
ByTNL; SN21-5634 

If variables not in common are to be dumped, each variably 
must be listed separately in the argument list. For example, 
if R, P, and Q are not in common, the statemarn: 

CALL PDUMP(R,R,5,P,P,5,Q,Q,5) 

should be used to dump the three variables I f the btatemei . r 

CALLPDUMP(R,Q,5) 

is used, all main storage between R and G is dumped, which 
might or might not include P, and might include other 
variables. 

If an array and a variable are passed to a subroutine as 
arguments, the arguments in the call to the storage dump 
subprogram in the subroutine should specify the parameteis 
used in the definition of the subroutine. For example, if 
the subroutine SUBI is defined as: 

SUBROUTINE SUBI (X,Y) 
DIMENSION X(10) 

and the call to SUBI within the source module is: 

DIMENSION A(10) 



CALL SUBI (A,B) 

then the following statement should be used in SUBI to 
dump the variables in hexadecimal format without termi- 
nating execution: 

CALLPDUMP(X(1),X(10),0,Y,Y,0) 

If the statement 

CALLPDUMP(X(1),Y,0) 



is used, all storage between A(1) and Y is dumped because 
of the method of transmitting arguments. 



CALL PDUMP(A,A,6,B,B,6) 
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Address/Data Switch Subprogram (Entry Name: DATSW) 

This subprogram tests the setting of the address/data 
switches. The four address/data switches correspond to 16 
binary switches, numbered to 15 from left to right, as 
shown in Figure 29. The binary switches 0-15 are either 
off (0) or on (1) depending upon the hexadecimal setting 
of the address/data switches. 



Address/Data 
Switch # 



Binary 
Switch # 
(i) 




ADDRESS 




8 9 1011 




12 13 14 15 



Setting of 
Address/Data 
Switch 
(hexadecimal) 

Setting of 
the Corres- 
ponding 1 6 
Binary Switches 

Figure 29. Address Data Switch Settings 



10 











In Figure 29, the address/data switches are set to: 

0800 

Therefore, only binary switch 4 Is on (1), and the other 
binary switches are off (0). 

The DATSW subprogram Is called by the FORTRAN state- 
ment: 

CALL DATSW(l,j) 

where 

i is an INTEGER*4 constant, expression, or variable In 
the range to 15, indicating the binary switch to be 
tested. 

Note: If i is outside the permitted range, halt code 
RFt<7, subhalt 16 Is issued. 

j is an INTEGER*4 variable, which Is set to 1 If the value 
of the tested binary switch was 1, or is set to 2 if the 
value of the binary switch was 0. 
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Example: 

Setting of address/data 
switches 

Setting of the corres- 
ponding binary 
switches 



0100 1010 0111 



0000 



Library Function Error Subprogram (Entry Name: FCTST) 

This subprogram is used to test an indicator word for an 
error in a library function subprogrann. After testing, all 
conditions are turned off. The subprogram is called by 
writing the FORTRAN statement; 

CALL FCTST(j,k) 



Here, binary switches 1, 4, 6, 9, 10, and 11 are on (are 1). 
Therefore, 

CALL DATSW(4,J) 

would set J to 1, and 

CALL DATSW(5,J) 



where 



j is set to 1 if any bit in the indicator word is on (1 ), or 
to 2 if all the bits in the indicator word are off (0). 

k is the indicator word. The error indicator is returned 
as the rightmost byte of this word (bits 24-31 ). The 
other bytes are zero. 



would set J to 2. 

CAUTION 

Binary switches 12-15 should be used with care on the 
Model 10 because the rightmost console dial must be used 
in replies to system halts, and might be changed during the 
execution of a program. 



Examole: 



PAUSE 55 
CALLDATSW(13,J) 



The PAUSE statement requires a replay of to continue 
processing, causing binary switches 12, 13, 14, and 1 5 to 
be set off (to 0). 



The errors that can be detected are shown in Figure 30. 

The value of the error word can be 1,2, 4, 8, 16, 32, 64, 
or 128, or the sum of 2 or more of these numbers if more 
than one error condition occurred. In such a case, the 
value returned is the sum of the integers associated with 
the individual conditions. For example, if an error was 
detected in DSIN (value 2), and an error was detected in 
SORT (value 4), the value of k is 6. 
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Value 
(decimal) 


Routine 


Error 


Result 




1 


ALOG/DLOG 


argument = 


Largest negative value 




1 


ALOG/DLOG 


argument < 


Absolute value of argument used 
for evaluation 




1 


Real to Real 
exponentiation 


negative base and 
nonzero exponent 


Absolute value of argument used 
for evaluation 




1 


SIN /COS 


argument magnitude 
exceeds tt • 2 


Zero 




2 


DSIN/DCOS 


argument magnitude 
exceeds tt • 2^ 


Zero 




4 


SQRT/DSQRT 


argument < 


Absolute value of argument used 
for evaluation 




8 


Real to Integer 
conversion 


overflow on conversion 


Maximum value of appropriate 
sign 




16 


Integer to Integer 
exponentiation 


base = and exponent 
<0 


Zero 




32 


Real to Integer 
exponentiation 


base = and exponent 
<0 


Zero 




64 


Real to Real 
exponentiation 


base = and exponent 
<0 


Zero 




128 




Invalid input character 
to a conversion routine 


Character treated as zero 




Note: For exponentiation routines, the error can occur for any length item, that is, for 1*2, 1*4, R»4, and 
R»8, where applicable. 





Figure 30. Error Conditions that can be Tested in FCTST 
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ROLLOUT Support Subprogram (Entry Name: INQCHK) 

System/3 Models 6, 10, 12. and Model 15 with Program 
Number 5704-FO1 ailow programs to be interrupted 
(ROLLOUT/ROLLIN) while ihey are being processed; 
Model 15 with Program Number 5704FO2 does not. ' 

To request an interruption: 



Model 6 



Models 10 
and 12 



Set the INQUIRY REQUEST switch 
to ON. 

Press the REQUEST key on the 
printer keyboard. 



Model 15 with Press the PFIOkey, issue ROLLOUT 
Program via the keyboard, and press ENTER. 

Number 
5704-FO1 

Programs are norniaiiy interrupted to permit another pro- 
gram to run. After this program is run, control is then 
given back to the original program (the one that was 
interrupted). 

For more information about the ROLLOUT/ROLLIN 
routines, see the appropriate operator's guide listed under 
Related Publications in the Preface. 

The subprogram INQCHK allows the user to interrupt the 
executing FORTRAN program in order to execute another 
program. Calls to INQCHK should be placed at appro- 
priate points in the Interruptable program, so that the 
interru!)t request is serviced witl'iin a reasonable interval. 
The INQCHK subprogram has no parameters. The format 
of the source language statement is; 



Notes: 



1. I 



n the dual programming mode, only program level 1 
or partition 1 programs can be interrupted and moved 
out of main storage by a ROLLOUT routine. 
The Model 15 with Program Number 5704-FO2 pro- 
cesses programs containing the CALL INQCHK state- 
ment but the ROLLOUT/ROLLIN routine is replaced 
by a simple return-to-caller statement in subroutine 
INQCHK. 



Inquiry Support Subprogram (Entry Name: SETIIMQ) 

A FORTRAN program can be made an INQUIRY 
(l-TYPE) program by inserting a CALL SETINQ statement 
in the source program. The CALL SETINQ statement 
should be the first executable statement in the program. 
The SETINQ subprogram has no parameters. 

Inquiry programs are usually used on systems with multiple 
program levels; however, they can be used on systems with 
only one program level. An inquiry program is in main 
storage and is executed when an inquiry request is made 
by one of the following procedures: 

Model 6 Set the INQUIRY REQUEST switch to 
ON. 

Models 10 Press the REQUEST key on the printer 
and 12 keyboard. 

Model 15 Press the PA1 key. 

For further information, see the appropriate operator's 
guide under Related Publications in the Preface. 



CALL INQCHK 

If no inquiry is pending, the subprogram immediately 
returns control to the interruptable program. If an interrupt 
request has been made: 



1. 



A system control program ROLLOUT routine moves 
the interrupted primary program from main storage 
to disk. 



2. 



The desired secondary program is processed; this pro- 
gram cannot be interrupted. 



3. 



After the secondary program has been executed, the 
interrupted program moves back into main storage 
using a ROLLIN routine. The interrupted program 
resumes execution at the point beyond the call to 
INQCHK and terminates in a normal manner. 
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Date/Time-of-Day Subprogram (Entry Name: CFTOD) 

Note: The interval timer is available as a feature only on 
the Model 15. On the Model 10, the interval timer is 
available as a hardware RPQ (RPQ WE0922); and the 
CFTOD subprogram is available as a programming RPQ 
(RPQ5799-WGY). 

The CFTOD subprogram makes available the date and 
time-of-day. It is called by using the entry name CFTOD 
in a CALL statement. The source language statement is; 

CALL CFTOD (date,time[,1] ) 

where 



Examples are: 



• For DDMMYY format March 14, 1974 would be returned 
as 140374. 

• For MMDDYY format March 14, 1974 would be returned 
as 031474. 

The time (when the third operand is omitted) is returned in 
hours, minutes, and seconds (HHMMSS) where the first 
element of thj array contains the hours, the second element 
contains the minutes, and the last element contains the 
seconds. The values in the elements have the following 
range: 



date must be the name of a one-dimensional, three 
element, INTEGER*2 array 

time must be (1) the name of a one-dimensional, three 
element, INTEGER*2 array if the third operand is 
omitted, or (2) the name of an INTEGER*4 variable if 
the third operand is included 

1 is the constant 1. When this optional operand is 
coded, the time returned is in timer units. When it is 
omitted, the time returned is in hours, minutes, and 
seconds. 

The date is incremented by one day at midnight. The date 
returned in the three-element array is the system date that 
was set at IPL time-either day, month, year (DDMMYY), 
or month, day, year (MMDDYY), depending upon the 
option chosen at system generation. 



Element 


From 


To 


Hours 


00 


23 


Minutes 


00 


59 


Seconds 


00 


59 



Unless the third operand (,1) is coded, both the date and 
time are returned in the A2 format (two numeric characters 
per element). 

If the third operand (,1) is coded, the time is returned as 
a four-byte unsigned binary number where each timer unit 
represents 3.33 milliseconds, or the low-order bit represents 
3.33 milliseconds. An example is: 

(0000002A)2 represents (42), o timer units or (42 x 3.33) 
milliseconds. 
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Glossary 



##t\/IAiN: The name given to a main program by the com- 
piler If the main program was not given a name by the 
programmer. 

aSphabstic ctiaracter: A character of the set A, B, C, . . . 

Z, $. 

alphameric character: A character of the set that includes 
the alphabetic characters and the numeric characters. 

argurnant: A parameter passed between a calling program 
and a subprogram or statement function. 



compile: To prepare a machine language program from a 
computer program written in a higher level programming 
language. 

compiler option statements: A set of statements used to 
provide control information regarding a compilation by the 
FORTRAN IV compiler. 

constant: A fixed and unvarying quantity. The three class- 
es of constants specify numbers (numeric constants), literal 
data (literal constants), and hexadecimal data (hexadecimal 
constants). 



arithirijuc expression: A combination of arithmetic 
operators and arithmetic piimaries. 

arithmetic operatoi : One of the synibols +, -, ♦, /, **, used 
to uer.ott, respectively, addition, subtraction, multiplication, 
division, and exponentiation. 

array: An ordered set of data items identified by a single 

name. 

array element: A data item in an array, identified by the 
array name followed by a subscript indicating its position 
in the array. 



control program: A program that supervises the perform- 
ance of a computing system; an example is the System/3 
System Control Program. 

control statement: Any of the several forms of GO TO, 
IF and DO statements, or the PAUSE, CONTINUE, and 
STOP statements, used to alter the normally sequential 
execution of FORTRAN statements, or to terminate the 
execution of the FORTRAN program. 

core usage map: A linkage editor listing that shows the 
names and storage locations of routines that make up the 
load module. 



array name: The name of an ordered set of data items. 

assignment statement: An aritiimetic variable or array 
element, followed by an equal sign M, followed by an 
arithmetic expression. 

basic reai constant: A string of decimal digits containing 
a decimal point, 

batched compilation: Sequential compilation of more than 
one program. 

common area: A storage area that may be referred to by a 
calling program and one or more subprograms. 

compilation time: The time during which a source program 
is compiled, that is, translated from a high level language 
to a machine language program. 



data item: A constant, variable, or array element. 

data type: The mathematical properties and internal 
representation of data and functions. The two types are 
integer and real. 

device option statements: A group of statements, in the 
set of compiler option statements, used to define input/ 
output devices. 

direct-access file: A file from which records may be re- 
trieved, or to which records may be written, in a nonse- 
quential manner. 

DO loop: Repetitive execution of the same statement or 
statements using a DO statement. 



Glossary 197 



DO variable: A variable, specified in a DO statement, that 
is initialized or incremented before each execution of the 
statement or statements within a DO loop. It controls the 
number of times the statements within the DO loop are 
executed. 

dummy argument: A variable in a FUNCTION or SUB- 

ROIJTINE statement, or statement function definition, 
with which actual arguments from the calling program or 
function reference are associated. 



hexadecimal constant: The character Z followed by a 
hexadecimal number, formed from the set through 9 and 
A through F. 

hierarchy of operations: Relative priority assigned to 
arithmetic or logical operations to be performed. 

I/O list: A list of variables in an I/O statement, specifymg 
the storage locations into which data is to be read or froi.i 
which data is to be Vvfritten. 



execuXali.a program: A program that can be used as a self- 
contained procedure. It consists of a main program and, 
optionally, one or more subprograms or non-FORTRAN- 
defined external procedures or both. 



implied DO: The use of an indexing specification similar 
to a DO statement (but without specifying the word DO 
and with a list of data elements, rather than a set of state- 
ments, as its range). 



executable statement: A statement that specifies action 
to be taken by the program; e.g., causes calculations to be 
performed, conditions to be tested, flow of control to be 
altered. 

extended range of a DO statement: Those statements that 
are executed between the transfer out of the innermost 
DO of a completely nested set of DO statements and the 
transfer back into the range of this innermost DO. 



integer constant: A string of decimal digits containing no 
decimal point. 

internal statement number: A number assigned to a source 
statement by the compiler for identification. 

intrinsic function: A FORTRAN library function used by 
the compiler when certain operations are specified in a 
FORTRAN source statement. 



external function: A function whose definition is not 
included in program unit that refers to it. 

external procedure: A procedure subprogram or a proce- 
dure defined by means other than FORTRAN statements. 

file: An ordered collection of one or more records. 

formatted record: A record that is transmitted with the 
use of a FORMAT statement. 

FUNCTION subprogram: An external function defined 
by FORTRAN statements, the first of which is a FUNC- 
TION statement. It returns a value to the calling program 
unit at the point of reference. 

global area: A data area at the load point of a main stor- 
age, which is not overlaid when different programs are 
loaded, thereby permitting communication between two 
or more programs. 

halt code: A number assigned to a programmed halt; a 
machine instruction that stops the execution of a program. 



ISN: Internal statement number. 

job stream: The sequence of operation control statements 
and data submitted to tiie system on an input device. 

length specification: An indication, by the use of the 
form »s, of the number of bytes to be occupied by a 
variable or array element. 

link-editing: The combining, by tiie linkage editor, of a 
number of object or load modules for execution as one 
program. 

linkage: Coding that connects two separately coded 
routines. 

linkage editor: A program that combines separately pro- 
duced object or load modules, resolves cross references 
between them, and generates overlay structures on request. 
The output of a linkage editor is called a load module, 
suitable for loading into main storage for execution. 

linkage editor control statements: A set of statements used 
to provide control information regarding the link-editing 
process. 
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list-directed input/output: Input or output records that 
are tfansmitted without the use of a FORMAT statement; 
an asterisk is placed in the READ or WRITE statement 
where the FORiVIAT statement number would ordinarily be. 

literal constant: A string of alphameric and/or special 
characters enclosed in apostrophes. 

load module: An executable program that is the output of 

a linkage editor. 

load nioduie execution time: The time during which a 
load module is executed. 

logical unit number: A constant or variable in an input/ 
output statement, that specifies the file that is to be read 
from or wriiters to. 

looping. Repetitive execution of the same statement or 
statements, usually controlled by a DO statement. 

main program: A program not containing a FUNCTION or 

SUBROUTINE statement and containing at least one 
executable statement. A main program is required for 
program execution. 

map, compiler: A compiler listing that shows the names 
and storage locations of variables and statement numbers 
In the object module, 

name: A string of from one through six alphameric 
characters, the first of which must be alphabetic, used to 
identify a variable, an array, a function, or a subroutine. 

nested DO: A DO ioop whose range is entirely contained 
by the range of another DO loop. 

nonexecutable object program: An object module. 

none>iecutabie statement: A statement that describes the 
use Of extent of the program unit, the characteristics of 
the operands, editing information, statement functions, or 
data arrangement. 

numeric character: Any one of the set of characters 0, 1, 
2, . . .. 9. 



object library: An area on disk that contains object 
modules and load modules. 

object module: A nonexecutable module that is the output 
of a language translator such as the System/3 FORTRAN 
IV Compiler. 

object program: A group of object modules that have been 
link edited together into an executable program; same as 
load module. 

OCL: Operation control language. 

predefined convention: The FORTRAN-defined type and 
length of a variable, based on the initial character of the 
variable name in the absence of any specification to the 
contrary. The characters l-N are INTEGER*4; the charac- 
ters A-H, 0-Z and $ are REAL*4. 

procedure: A set of operation control statements in a 
source library that can be retrieved by specifying its name 
in an OCL CALL statement. 

procedure subprogram: A FUNCTION or SUBROUTINE 
subprogram. 

program unit: A main program or a subprogram. 

range of a DO statement: Those statements that physically 
follow a DO statement, up to and including the statement 
specified by the DO statement as being the last to be exe- 
cuted in the DO loop. 

real constant: A string of decimal digits that must have 
either a decimal point or an exponent, and can have both. 

relational expression: An arithmetic expression, followed 
by a relational operator, followed by an arithmetic expres- 
sion. The expression has the value true or false. 

relational operator: Any of the set of operators that express 
an arithmetic condition that can be either true or false. The 
operators are: .GT., .GE., .LT., .Lt., .EQ., .NE., and are 
defined as greater than, greater than or equal to, less 
than, less than or equal to, equal to, and not equal to, 
respectively. 



numeric constant: An integer or real constant. 



scale factor: A specification in a FORMAT statement 
whereby the location of the decimal point in a real number 
(and, if there is no exponent, the magnitude of the num- 
ber) can be changed. 
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sequential file: A file from which records are retrieved, or 
to which records are written, solely on the basis of their 
order. 



storage map: A compiler listing that shows the names and 
storage locations of variables and statement numbers in 
the object module. 



severity code: A code assigned to a compilation error. 

source library: An area on disk that contains procedures 
and source program statements. 

source module listing: A compiler-generated listing that 
shows L J source statements in a program unit and their 
corresponding internal statement numbers. 

source program: A computer program written in a source 
language, such as a program written in FORTRAN. 

specification statement: One of the set of statements that 
provide the compiler with information about the data used 
in the source program. In addition, the statement supplies 
information required to allocate storage for this data. 

statement: The basic unit of a FORTRAN program, com- 
posed of a line or lines containing some combination of 
names, operators, constants, or words whose meaning is 
predefined to the FORTRAN compiler. Statements fall 
into two broad classes: executable and nonexecutable. 

statement function: A function defined by a function 
definition within the program unit in which it is referred to. 

statement function definition: A name, followed by a list 
of dummy arguments, followed by an equal sign (=), fol- 
lowed by an arithmetic expression. 

statement function reference: A reference in an arithmetic 
expression to a previously defined statement function. 



subprogram: A program unit headed by a FUNCTION or 
SUBROUTINE statement. 

SUBROUTINE subprogram: A subroutine consisting of 
FORTRAN statements, the first of which is a SUunOUTINE 
statement. It optionally returns one or more parameters to 
the calling program unit. 

subscript: A subscript quantity or set of subscript quanti- 
ties, enclosed in parentheses used in conjunction with an 
array name to identify a particular array element. 

subscript quantity: A component of a subscript: a positive 
integer constant, integer variable, or expression that evalu- 
ates to a positive integer constant. If there is more than one 
subscript quantity in a subscript, the quantities must be 
separated by commas. 

system input device: A device, such as a card reader or a 
printer/keyboard, used to read the job stream. 

type declaration: The explicit specification of the type 
and, optionally, length of a variable or function by use of 
an explicit specification statement. 

unformatted record: A record for which no FORMAT 
statement exists, and which is transmitted with a one-to- 
one correspondence between internal storage locations 
(bytes) and external positions in the record. 

variable: A data item, identified by a symbolic name, that 
is not an array or array element. 



statement number: A number of from one through five 
decimal digits placed within columns 1 through 5 of the 
initial line of a statement. It is used to identify a statement 
uniquely, for the purpose of transferring control, defining 
a DO loop range, or referring to a FORMAT statement. 
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FORTRAN SAMPLE PROGRAM 

Figure 31 contains a sample System/S FORTRAN program 
and the output listing resulting from its compilation, link 
editing, and execution. The sample program can be used to 
accomplish post-installation checkout of the compiler. 

After program product installation, if the system uses 5444, 
this program can be run by placing the distribution disk 
cartridge on R1 (for systems using 3340, place the program 
product distribution data module on D1). Then, generate 
a call to the procedure FRTSMP using the following OCL 
statements: 

// DATE 00/00/00 
// C:ALLFRTSMP,R1 

// RUN 

You must have 10 tracks available for $SOURCE and 10 
tracks available for $WORK on F1. The procedure assumes 
that F1 is named F1F1F1. 

This test program consists of three groups of statements: a 
FORTRAN source module of a subprogram named KBINCO 
(used to compute entries in an array), a FORTRAN source 
module of a main program named SAMPLE (used to print 
out the array), and a single data statement that is used as 
input to the load module resulting from the compilation of 
tht *wo FORTRAN source modules. 

The sample program is written to be run in the minimum 
system configuration. 

Figure 31 shows the output as it appears on the printer. 
Each page heading will display the current version number, 
modification number, modification number, date, and 
page number. Compiler output consists of: 



1. The source module listing [[j 

2. The compiler storage map HI 

3. Informative messages H 
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Page of SC28-6874-3 
Issued 25 November 1977 
By TNL; SN21-5568 



// CAI I FRTSMP.R 1 

XX CfiLI PiRTni .Rl 

XX 1 OAn tFHRT.Fl 

XX CnMPTI F SnURCF-KBTNCn.DN IT-R 1 

XX FItF NAMF-$wnRK.imiT-Fl. PACK-FlFlFl.TRAr.KS-lO.RFTAIN-S 

XX FIIF NAMF-$SnURCF. UNI T-Fl .PACK-FIFIFI. TRACKS-] O.RFTAIN-S 

XX RUN 

// RUN 



FHRTRAIU IV VERXX/Mnnxx 



D 



*PRnr.Fss 


MAP 








r. 




*******«*=^*****^«*j)r^i;t*«^«3!(*:t#j;t*««***#**«*^:^:^**^ji,* 




r. 




* KRINCn f.OMPUTFS THF BlNOMTAl CCFFFICIFNT, * 




r. 




* riN.K) = (N*(N-1 )***(N-K + 1) ) / ( K*( K- l)***l ) , * 




r 




* WHFRF N ANn K AR F THF 


INTFGFP ARGUMENTS TO * 




r. 




* THF FUNr.TlnN. INTFRMFDIATF CALCULATlrKS ARF * 




r. 




* PFRFPRMFn IN RFAl ARITFMFTIf . IN THF CASF * 




r. 




* WHFRF K .r,T. N, A VAI 1 


JF OF ZFRC IS RETURNED. * 




c 




* THF VAI UFS OF N AND K 


ARF 1 EFT UNCHANGED. * 




r. 




* THF FUNCTinN HAS PFFN 


CHECKED FOR ALL COM- * 




r 




* RINATIONS OF N=l .7 .. . 


..70 AND K = 1.2.....10. * 




r, 

r. 




********»***4i****«.t*4:^<,jt4,***^^,^<,:j^5j^,j^^^:^^^^^^^ 


1 




FUNCTION KRINCniN.I 


<) 




CHFCK 


FOR TRIVIAL CASFS 




7 






IF( K .GT.N) GCTf 


50 


? 






IF( K .FO. 0) GOTO 


60 


I* 






IF( K .FQ. K) GGTO 


fcO 


•i 






IF( K .FO. 1) GCTf 


70 


f, 






TF( N-K .FO . 1 ) 


GOTO 7C 




CONVFRT TO RFAL FOR INT. f Al CUL AT I ONS 


7 






P = N 




R 






= K 






PHFCK 


FHR LDWFR ■ DE NDMI NATO R ' 


1 


q 






IF( P-0 .LT. 0) 


= P-0 




r ALCU 


LATF OFNOMINATOR 




10 






MAX = 




I 1 






ROT = 1.0 




1 7 






no 10 1=7. MAX 




1 ^ 






ROT = I * 


ROT 


1 4 




^0 


CONTINUF 






CnMPIITF NUMFRATriR 




1 "i 






MAX = P 




1 6 






MIN = p _ 


+ 1.0 


1 7 






TOP = I .0 




1 R 






DO 40 I=MIN.MAX 




iq 






TOP = I ♦ 


TOP 


?n 




40 


CONTINUE 






r.Air.ULATF AND RHUND BIN. COFFF. 


71 






KRINCO = TOP/ROT 


+ 0.5 


7? 






RETURN 




7? 


1 


■SO 


KfllNCO = 




74 






RETURN 




?•> 




ftO 


KBINCO = 1 




76 






RETURN 




77 




70 


KRINCn = N 




7fi 






RETURN 




79 






ENO 




NAMF 


AT 


HFXl OFCl HFX? DEr? NAMF 


AT HFXl DECl HFX2 DEC? NAME 


KRINCn 


1 


0006 nOOOA N 


I OOOA 00010 K 


P 


R 


oni? oooiR 


R 0016 00072 MAX 


RHT 


R 


ooiF ooo^n I 


I 0022 00034 MIN 


TpP 


R 


007A 00047 




000 TOTAI 


ERRORS FOR THIS CCMPILATION 



XX/XX/XX PAGE 001 



01210000 
0122000C 
01230000 
01240000 
01242000 
01244000 
01246COC 
01248000 
1248400 
01248800 
01249200 
01249600 
01249700 
01250000 
01260000 
1300000 
01350000 
01400000 
01450000 
01500000 
0151000C 
01550000 
01600000 
01610000 
01650000 
01660000 
01700000 
01750000 
01800000 
01850000 
01900000 
0191000C 
01950000 
02000000 
0205000C 
02100000 
02110000 
02120000 
02130000 
0215000C 
02200000 
02250000 
023000CO 
02350000 
02400000 
0245000C 
02500000 
02550000 

AT HEXl DECl HEX2 DEC2 

I OOOE 00014 

I OOIA 00026 

I 0026 00038 



Figure 31 (Part 1 of 6). FORTRAN Sample Program 
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Page of SC28-6874-3 
Issued 25 November 1977 
ByTNL: SN21-5568 



B 



STATFMFNT ALLOC/lTinNS 
^n =0141 40 =0185 SO =0190 60 =0149 70 =01R5 

nirns i thf codf lfngth of kbinch is 449 dfcimal. 

ni 10^ 1 TriTAI NUMRFR OF LIBRARY SFCTCRS RFCUIRFD IS 5 

NAMF-KBINCO.PACK-FIFIF 1 . UN I T-F 1 , RE TA IN-T . L I BR AR Y-R ,C ATEGORY-020 



X ; CAt I PART0?,R1 

* < LOAD SFORT.Fl 

.X CnMPTLF SnURCF-SAMPLF.UNIT-Rl 

XX F1I F NAMF-$WORK,UNIT-Fl,PAr.K-FlFIFl .TRACKS-IO.RFTAIN-S 

XX FIIF NAMF-tSaURCF.llNIT-Fl .PATK-Fl F1F1,TRACKS-10.RFTAIN-S 

XX RUN 



♦ PRnCFSS MAP 

1 PRHRRAM SAMPLF 

C **********************************#*«**#*****j^*:**5}<*:(t*********A******00040000 

f" * 400040400 

r, * THIS PRORRAM IS A TFST CASF OFSIGNFO TO VERIFY THAT THE S/3 *00041200 

r * FORTRAN IV COMPIIER AN F LIBRARY HAVE BFEN PROPERLY INSTALLED IN *00041500 

r, * YOUR SYSTFM. THF RFOUIRFD CCL STATEMENTS ARE INCLUDED WITHIN *00041700 

r. * THF CALLED PROCFEOURES. *00041800 

•" * +00041900 

C * THE PROGRAM GENERATES A TABLE OF BINC^^TAl CCFFFICIFNTS WHICH IS *00056400 

C * THEN PRINTED ON THE PRINTER. ALl DATA IS PROGRAM GENERATED. *00066400 

'"• * *00070400 

<" * *00071000 

r * THF OUTPUT SHOULD BE *00081000 

f- * *00083000 

C * I 1 *00085000 

'"■ * ' K I *00085400 



r * I 1- 



*00090200 



f"-*INIl ? 3 4 5 6 7 8 9 10! *0C09Z200 

C * t 1 J *00094200 

r*IVIl C OI *00094600 

C * I ? I 7 I 01 *0009500C 

f*I3I3 3 1 01 *00095100 

C * 1 ^1 \ 't h it I 01 *00108800 

f*1?I'S10 10 5 1 01 *00118800 

''■*T6I615 2ni5 6 1 01 *00120800 

r * I 7 I 7 21 35 ^'j 21 7 1 1 *00121200 

f. * I 8 I 8 28 56 70 56 28 8 1 1 *00121600 

r * 1 9 I 9 36 84 126 126 84 36 9 1 1 *00122000 

f * I 10 I 10 45 120 210 252 210 120 45 10 II *00122400 

f. * I 11 I 11 55 165 330 462 462 330 165 55 11 I *00122500 

C * I 12 T 12 66 220 495 792 ';24 792 495 220 66 I *00127100 

r. * I 13 T 13 78 286 715 1287 1716 1716 1287 715 286 I *00129100 

C * I 14 I 14 91 364 ICOI 2002 3003 3432 3003 2002 1001 I *00131100 

f. * I 15 I 15 105 455 1365 3003 5005 6435 6435 5005 3003 I *00131500 

C * I 16 I 16 120 560 1820 4368 8008 11440 12870 11440 8008 I *00131600 

C * T 17 I 17 136 680 2380 6188 12376 19448 24310 24310 19448 I *00136200 

C * I 18 I 18 153 816 3060 8568 18564 31824 43758 48620 43758 I *00138200 

C * I 19 I 19 171 969 3876 11624 27132 50388 75582 92378 92378 I *00140200 

C * I 20 I 20 190 1140 4S45 15504 38760 77520 125S70 167960 184756 I *00140600 

r. * I 1 I *00140700 

<" * +00152500 
C *****♦♦****♦****♦♦*«***««♦***+***♦♦♦♦*«****+****** 4************«***+001 62 500 



Figure 31 (Part 2 of 6). FORTRAN Sample Program 
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□ 



7 

h 
1 

q 
I n 

1 ? 
1 ^ 

1 4 

!■; 



DIMFMSION NSYK(?0.10) 

INTEGFR nUT 

DATA nilT/^/ 

DP 10 K=l .10 

NRYK(l.K) = K 

r. rNTTNUF 

WRITFlnUT,?! 

WRITF(ni]T.-1 ) (NBYK( 1 .K ).K=1, 10) 

on ^0 N=i ,?o 
nn ?Q K=i .1 

NRYK(N.K) = KRTNCrKN.K) 

CONTINUF 

WRTTFlniJT. A) I\I.(NRYK(N.K).K=1.1C) 

rnNTTNIlF 



00164600 

00176400 

6 

OOPOOOOO 

oo?5onoo 

0030000C 
00400006 
00450000 
0050G0C0 
00550000 
0060000C 
00650000 
00700000 
0C75000C 



FORTRAN IV VERO5/MOD00 



16 
17 
1 R 



?n 

71 
77 



WRITF (nilT, 5) 
STOP 

FORMATCl S/3 FHRTRAN IV SAMPLF TFST CAS F •/////// 1 X, ' TF ST 
IFOR S/3 SAMPLE PR HGRA M •///// ) 

FnRMAT<T7.'I'.S7('-').'I'/T7.'I'.T35,'K'.T65.'!'/T?.' I I ' 

.•I'/T?.'T N I- ,1?. I4,?I5,3I6,?I7. • I'/T?. 
' ,571 •- • ) . M ■ 1 

'.13.' I', T3, 14, ?I5. 316,317, • I") 
I 1 ■ ,57('-' ) ,'I' ) 



► 57 ( • -• 
» ■ 1 

FORMAT (■ 
FflRMATt ' 

FNO 



MAMF AT HFXl DFCl HFX? HFC? NAMF 

nilT t 01R5 003S<; NRYK 

N 1 04A0 01197 



AT HFXl DFCl HFX? OFC? NAMF 
I 0189 003<93 04Aa 01192 K 



09/11/76 PAGE 002 

00800000 
00850000 
INPUT, 00900006 
0091000 6 
00950000 
01000000 
01050000 
01100000 
01150000 
01200000 



AT HEXl DFCl HFX2 DEC2 
1 04A9 01193 



000 TOTAL FRRGRS FOR THIS COMPILATION 



STATFMFNT ALLOCATIONS 
=0561 4 =057A 3 



=0666 10 



= 0680 20 



=072C 30 



Figure 31 (Part 3 of 6). FORTRAN Sample Program 
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nVFRlAY LlNKAfiF FDITQR CORF USAGE MAP 



CODF LFNGTH 
HFXADFriMAL CFCIMAL 

0781 iq?i 



0193 

0023 
006? 

OOFD 



ST ART 


tATFGORY 


NAMF AND 


AnnRFSS 




FNTRY 


1 Ron 


12S 


SAMPL F 


IF 79 




«UNITB 


1800 




*ERRIIF 


I 900 




«inaLiF 


!F Bl 





tFOFO 


?0FF 




«MNTRY 


70R3 




#SNTRY 


7 OF? 




«RNTR Y 


1 FH? 




«n 


?1 14 





t FCFS 


?)?5 




*RFTRN 


7 1 37 





tFOR! 


?1 fifi 




#DFD4 


71 H9 




#nFD7 


71 99 





SFG 10 


77 3 




iKFl ST 


77 3 r 




«FI_ST7 


7771 




«r)FRR 


??0F 




#ini NT 


71 FR 




sinccM 


7 74R 




*FNnFO 


774F 




«FRRFO 


7 7 60 




#nUTB( 


77S6 




« 1 NTRL 


7?6r 




#ioaaa 


7760 




«FI RP7 


7796 





tFn vfi 


7/Al 




SAOROT 


7->gF 




«Rl 1ST 


77A7 





tFnVH 


77R! 




«DL 1ST 


77B7 


4 


tFrF3 


7 7R9 




#Xl I 


77RF 




#XST 


?7r6 




#XA 


77r.n 




«XMl I 


7 7 03 




«XMST 


?7nA 


4 


iFnF6 


77FF 




#BST 


77F! 




#RA 


77FS 




«BS 


7 7F6 


4 


SFOFO 


73A6 




tnilEND 


737A 




«nnBR 


737A 




#DRGN3 


7307 


4 


tFOF? 


741 


4 


tPOFA 


7470 




«RL 


7431 




#RST 


744A 




#RAO 


7440 




«RA 


74 3r 




*RSO 


743F 




*RS 



OOOC 12 

0010 16 

0028 40 



OCEl 225 



0046 70 

0154 340 



Figure 31 (Part 4 of 6). FORTRAN Sample Program 
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SI AR T 


(All con Y 


NAMI ANIl 


AIKIR fSS 




F NI RY 


?f>SI) 




UK in 


?S7I 


4 


t F n 1 F 


7 SI 4 


4 


t( llf 1 


7ft7R 


4 


tF 11 FH 


7 n n 


4 


t( nvr 


? 7U 




«( 1 riA T 


7 rn 


4 


tf nvA 


7 7nt 


4 


tf IIF ( 


7 7h4 




«R(H 1 W 


7 7Fi, 




rfRIIF 1 W 


7 /Kl 


S 


tf (1(17 


71(1 1 




« t R f T 


7<)n<) 




H ( nR7 A 


7flB 1 




«F(1H?R 


7<J 1 1 




«F 11 n7r 


7Q <7 


S 


tF (KM 


7QI)( 


S 


iF(lR H 


7 A 7 n 


s 


i F (IRQ 


7 a A 'i 


s 


t F (1 R A 


7 A ^ 7 


s 


t( (1( A 


7AHn 


^ 


tFFlir 


7R7"1 




«FR T SI 


7IWF 


h 


K (1 TH 


7HHI) 


6 


1 1 1 p R r 


7f RiV 


6 


tKII 1 


7 ( , R A 




« F n 1 1 A 


7n6R 




«F ni ^ 


7 119(1 


d 


tFdVP 


7nRI 


6 


IF (1RR 


7F IF 


6 


$Fnn7 


7F4A 


70 


KRINCn 


ni 1 nn i 


THF TOTAl 


cnRF (ism 


ni I ni 1 


THF START 


roNTRni A 


ni 104 I 


TOT Al NUMBER OF I IB 



1 (111 II N(. Hi 

IK XAIll (. I MAI l)f ( I MAI 



(Klfl 1 
0(lfl4 
(in'lH 
006 1 

(l()(,ll 
0(170 



00 A i: 


0041 


00 1 H 


001 11 


OO^B 


00( ? 


OOftA 


001 B 


OOF 4 


001 <; 


06 n 


01 ?r 


ir 1 



1 !1 
1 17 

1 '■:> 

9 J 

Ul'l 
1? 



1 7 1 


7 8 


7 4 


4 1 


194 


106 


?'. 1 


77fl 


?'j 


109 


^00 


449 



BY SAMPIF IS 6411 nFflMAI . 
AnORf-SS OF THIS MOnill F I^ 1 ROO . 
r SFTTdRS RFOIIIRFO IS ?7 

NAMF-SAMPIF.PACK-FIUFI.IINIT-FI.RFT AIN-T .1 IRRARY-( 



Figure 31 (Part 5 of 6). FORTRAN Sample Protjram 
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XX r.ALI PART0?.R1 
XX I nAn SAMPLF, FI. 

XX RUM 



S/1 FORTRAN IV SAMPLF TFST CASF 



TFST INPUT. FOR S/3 SAMPLF PRDfiRAM 



, , 

T K I 

--, J 

'^''?^'. 5 6 7 8 9 10 I 

-I 



-I- 



'I'onn n o o o oi 

'''ion 01 

-><^^io 01 

*'^6'il 01 

'^I'^IOtO 5 1 01 

'HI615P0I5 6 1 01 

"^ ' 7 71 ^5 35 21 7 1 1 

« I R ?8 66 70 56 28 8 1 1 

=5 ' '' 36 8A 1?6 126 84 36 9 1 1 

in I in 45 120 210 252 210 120 A5 10 II 

" I '1 55 165 330 462 462 330 165 55 11 I 

'7 I 12 66 220 495 792 924 792 495 220 66 I 

13 1 13 78 286 715 1287 1716 1716 1287 715 286 I 

14 I 14 91 364 1001 7002 3003 3432 3003 2002 1001 I 

15 I 15 105 455 1365 3003 5005 6435 6435 5005 3003 I 

16 I 16 120 560 1820 4368 8008 11440 12870 11440 8008 I 

17 I 17 136 680 2380 6188 12376 19448 24310 24310 19448 I 

18 I 18 153 816 3060 8568 18564 31824 43758 48620 43758 I 

19 I 19 171 969 3876 11628 27132 50388 75582 92378 92378 I 

20 I 20 190 1140 4845 15504 38760 77520 125970 167960 184756 1 
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Figure 31 (Part 6 of 6). FORTRAN Sample Program 
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Appendix B. Compilation Messages 



Compiler-generated messages Indicate conditions encount- 
ered dufing program compilation. Usually they describe 
invalid uses of FORTRAN syntax, but can also relate to 
violations of System/3 requirements. 

EiTcr messages are listed here in order by message number 
and ato described using the format; 

1. Message number and teKt. 

2. bxpianation, which sunimai izes the condition(s) 
causing the message to be generated. 

3 Severity code, which indicates the action taken by 

the com[5i:er. Two severity codes are |,)ossible: 

• Seventy 4 v./arning message. Compilation con- 
tinues; the iinkediting step and load module 
execution step are siill permitted. 

• Severity 8 serious error. Compilation continues, 
but processing terminates at the end of compila- 
tion (the LINK, OBJECT, DECK, and GODECK 
options are ignored). The phrase output text not 
generated is used as a reminder that processing 

is terminated at the end of compilation. 

If tlie compiler makes an assumption or takes a 
special action because of one of the error messages, 
that assumption or action is described in the severity 
code section. 



02 CONTINUATION ERROR. 

Explanation: More than 19 continuation cards are 
specified, or a continuation card Is out of sequence. 

Seventy: 8; output text not generated. 

Programmer Response: Check for proper delimiters; 
respecify the statement so that it does not extend 
over more than 19 continuation cards. 

03 SYNTAX ERROR 

Explanation: A statement is found that does not 
conform to the rules for writing FORTRAN state- 
ments. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 

04 INVALID STATEMENT. 

Explanation: The statement is undeterminable, mis- 
spelled, or incorrectly formed. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 

05 SEQUENCE ERROR. 



4. Programmer response, suggesting appropriate action 
which you should take. Corrective action should 
solve the problem; however, if the problem recurs, 
fiave the source program and associated source listing 
available before calling IBM for programming support. 

01 NON NUMERIC STMT NUMBER. 

Explanation: The statement number contains a 
character that is not a decimal digit. 

Severity: 8; output text not generated. 

Programmer Response. Respecify the statement 
number using only decimal tiigits. 



Explanation: The statement is not in the proper 
order of statements for a FORTRAN program. 

Severity: 8; output text not generated. 

Programmer Response: Place the statement into 
proper sequence. For example, if the FUNCTION, 
SUBROUTINE, or PROGRAM statement appears, 
It must be the first statement in a program; the 
IMPLICIT statement must precede all other state- 
ments; specification statements must precede execu- 
table statements. 
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06 MISSING STMT NUMBER. 



11 SUBPROGRAM IN COMMON. 



Explanation: A statement following a STOP, RE- 
TURN, GOTO, or arithmetic IF statement does not 
have a statement number. 

Severity: 8; output text not generated. 

Programmer Response: Supply a statement number 
where required. 

07 INVALID NAME. 



Explanation: A subprogram natru; or diirnrny purdrii 
eter upijears in a COMMON or GLOBAL Mati;irii:nt. 

Severity: 8; output text not generated. 

Programmer Response: Remove the subprogram 
from COMMON; respecify COMMON or GLOBAL 
statements without dummy arguments. 

12 DUPLICATE SUBPROGRAM VAR. 



Explanation: A statement contains a variable or 
subprogram name longer than six characters or one 
that does not begin with an alphabetic character, or 
in a FUNCTION or SUBROUTINE statement, the 
name is missing. 

Severity: 8; output text not generated. 

Programmer Response: Supply or respecify the name, 
making sure it bcigins with an alphabetic character and 
is no more than six characters long. 

08 SUBSCRIPT ERROR. 



Explanation: A variable name appears more Itian 
once in a SUBROUTINE or FUNCTION statement. 

Severity: 8; output text not generated. 

Progranimer Res/)onsc: Assigr\ a different variable 
name. 

13 INVALID FORMAT SYNTAX. 

Explanation: The FORMAT statement contains a 
slash followed by a comma, or a comma followed by 
a slash. 



Explanation: A subscript is missing or incorrectly 
specified within dimensioned information. 

Severity: 8; output text not generated. 

Programmer Response: Correct the subscript. 

09 DUPLICATE STMT NUMBER. 

Explanation: The statement number is previously 
defined. 

Severity: 8; output text not generated. 

Programmer Response: Assign a different statement 
number. 



Severity: 4; warning. 

Programmer Response: Correct the statement if the 
program is to be compiled again. 

14 SUBPROGRAM NAME ERROR. 

Explanation: An attempt was made to dimension a 
subprogram name or type a SUBROUTINE name. 

Severity: 8; output text not generated. 

Programmer Response: Remove dimension informa- 
tion from subprogram names. If a name is to be 
typed, make the subprogram a function rather than 
a subroutine. 



10 DUPLICATE COMMON/GLOBAL. 



15 INVALID SPECIFICATION. 



Explanation: A variable in a COMMON or GLOBAL 
statement is previously defined in a COMMON or 
GLOBAL statement, or an attempt is made to initial- 
ize a COMMON or GLOBAL item. 

Severity: 8; output text not generated. 

Programmer Response: Assign a different variable 
name. 



Explanation: A name is dimensioned more than 
once or explicitly typed more than once. 

Severity: 8; output text not generated. 

Programmer Response: Make sure type and dimen- 
sion information is specified only once for a name; 
assign different names to different variables and arrays. 
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16 INVALID EXTERNAL NAME. 



Page of SC28-6874-3 
Issued 29 September 1978 
ByTNL: SN2 1-5634 



20 SUBSCRIPTED VAR IN ASF 



Explanation: A name specified in an EXTERNAL 
statement is a subprogram name, a dummy parameter, 
a COIVIIVION or GLOBAL variable, a PROGRAM 
name, or is dimensioned. 

Severity: 8; output text not generated. 

Programmer Response: Correct any duplicate names; 
assign undimensioned names. 

17 INVALID REAL CONSTANT. 

Explanation: An invalid or incorrectly specified 
real constant is detected. 

Severity: 8; output text not generated. 

Programmer Response: Respecify as a valid real 
constant; that is, a number of decimal digits written 
with a decimal point optionally followed by a D or 
E and one or two digits for an exponent. 

18 INVALID INTEGER CONSTANT. 

Explanation: An invalid or incorrectly specified 
integer constant is detected. 

Severity: 8; output text not generated. 

Programmer Response: Respecify as a valid integer 
constant; that is, a number of decimal digits written 
without a decimal point that does not exceed the 
value 2147483647. 



Explanation: A subscripted variable is specified in a 
statement function. 

Severity: 8; output text not generated. 

Programmer Response: Remove the subscript; if 
necessary, restructure the program to execute the 
proper variable. 

21 SUBSCRIPT EXPRESSION ERR. 

Explanation: An incorrectly formed subscript ex- 
pression or undefined variable appears in a subscript 
expression. 

Severity: 8; output text not generated. 

Programmer Response: Correct the subscript expres- 
sion; define all variables. 

22 SUBSCRIPT DIMENSION ERR. 

Explanation: The number of subscripts in a subscript 
expression, or the evaluated result of the subscript(s) 
does not agree with the dimension information, or 
the evaluated result of the subscript exceeds 32767. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the expression or 
the dimensioned definition so that they are consistent. 

23 ARITHMETIC STMT ERROR. 



19 DUMMY ARGUMENT ERROR. 

Explanation: More than 15 dummy arguments, or 
duplicate dummy arguments, appear in a statement 
function argument list, or more than 25 dummy argu- 
ments appear in a FUNCTION or SUBROUTINE 
statement. 

Severity: 8; output text not generated . 



Explanation: An invalid arithmetic statement or 
variable is specified; or in a FUNCTION subprogram, 
the left side of an arithmetic statement is a dummy 
argument or is in COMMON. 

Severity: 8; output text not generated. 

Programmer Response: Correct the arithmetic 
statement. 



Programmer Response: Correct any duplicate names; 
make sure the number of dummy arguments does not 
exceed 15 or 25. 
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24 INVALID IF EXPRESSION. 



29 INVALID STMT NUMBER. 



Explanation: An invalid or incorrectly formed IF 
expression is specified. 

Severity: 8; output text not generated. 

Programmer Response: Correct the IF expression. 

25 INVALID SIMPLE ARGUMENT. 

Explanation: An invalid simple argument appears 
in a CALL statement. 

Severity: 8; output text not generated. 

Programmer Response: Correct the CALL statement. 

26 INVALID CALL EXPRESSION. 

Explanation: An invalid expression appears in a 
CALL statement. 

Severity: 8; output text not generated. 

Programmer Response: Correct the CALL statement. 

27 INVALID ASF LEFTSIDE. 

Explanation: An invalid expression appears to the 
left of an equal sign in a statement function. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement function. 

28 INVALID ASF RIGHTSIDE. 

Explanation: An invalid expression appears to the 
right of an equal sign in a statement function. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement 
function. 



Explanation: In an arithmetic IF, GOTO, or AT, or 
on the END= or ERR= parameter of an I/O statement, 
a statement number is missing, invalid, incorrectly 
placed, or is the number of a non-executable statement. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the statement with 
a valid statement number. 

30 FORMAT STMT NUMBER ERROR. 

Explanation: A FORMAT statement number is miss- 
ing or is incorrectly specified in a READ or WRITE 
statement, or a READA/VRITE statement containing 
an I/O list references a FORMAT statement not hav- 
ing a D, E, F, I, or A format specification. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the statement with 
a valid statement number. 

31 INPUT/OUTPUT LIST ERROR. 

Explanation: A syntax error or an invalid list element 
appears in an input/output list; or in a FUNCTION 
subprogram, the input list element is a dummy argu- 
ment or is in COMMON. 

Severity: 8; output text not generated. 

Programmer Response: Correct the input/output list. 

32 COMPUTED GO INDEX ERROR. 

Explanation: The index of a computed GO is missing, 
invalid, or not preceded by a comma. 

Severity: 8; output text not generated. 

Programmer Response: Correct the computed GO. 
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33 DO LOOP ERROR. 



37 INVALID LAST STATEMENT. 



Explanation: The DO statement is incorrectly nested; 
or the terminal statemeni of the associated DO state- 
ment is a GOTO arithmetic IF, RETURN, FORMAT, 
STOP, PAUSE, or another DO. 

Severity: 8; output text not generated. 

Programmer Response- Supply a CONTINUE state- 
men! if possible; othervi/ise, restructure the DO loop. 

34 TOO iVlAIMY NESTED DOS. 

Explanation: Jbexe are miore than 25 nested DO 
statements. 

Severity: 8; output text not generated. 

Programmer Response: Restructure the program 
Wherever possible to contain fewer [)0 statements in 
a loop. 

35 INVALID DO VALUE. 

Exolanation: The initial, test, or increment value in 
a DO statement or implied DO in a READ or WRITE 
I/O list is of the invalid type or the initial value is 
negative or zero. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the DO statement 
initial value as an unsigned integer constant or 
variable greater than zero. 

36 INVALID DO INDEX. 

Explanation: The index of a DO or an implied DO is 
of invalid type, or, in a FUNCTION subprogram, the 
index of a DO is a dummy argument or is in COMMON 
or GLOBAL. 

Seventy: 8; output text not generated. 

Programmer Response: Correct the DO statement. 



Explanation: The last executable statement before 
the END statement is not a STOP, GOTO, arithmetic 
IF, or RETURN statement. 

Severity: 4; warning. 

Programmer Response: Supply a STOP or other valid 
statement before the END statement. 

38 NO END STATEMENT. 

Explanation: The END statement is missing. 

Severity: 4; warning. 

Programmer Response: Supply an END statement if 
the program is to be compiled again. 

39 STATEMENT TOO LONG. 

Explanation: A statement is too long to be scanned 
because of compiler expansion of subscript expres- 
sions or addition of generated temporary storage 
locations. 

Severity: 8; output text not generated. 

Programmer Response: Restructure the statement 
into smaller logical units and specify as separate 
statements. 

41 COMMON/GLOBAL EXTENSION. 

Explanation: A variable is made equivalent to an 
element of an array in such a manner as to cause the 
array to extend beyond the origin of the COMMON 
or GLOBAL area. 

Severity: 8; output text not generated. The compiler 
will restructure the EQUIVALENCE nest so that 
COMMON or GLOBAL is not extended. Note that 
this restructuring may cause apparent errors in other 
nests, generating error 42. 

Programmer Response: Restructure equivalence 
wherever possible; include dummy arrays if necessary 
to make the COMMON area larger. 
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42 EQUIVALENCE ERROR. 



46 INVALID DEFINE FILE. 



Explanation: Two variables or array elements in 
COMMON or GLOBAL are equated, or the relative 
locations of two variables or array elements are 
assigned more than once. 

Severity: 8; output text not generated. 

Programmer Response: Restructure COMMON or 
GLOBAL variables and arrays, or correct EQUIVA- 
LENCE statements to eliminate double definition. 

43 INVALID EQUIVALENCE NAME. 

Explanation: A name that may not appear in an 
EQUIVALENCE list was detected in the list. 



Explanation: A DEFINE FILE statement is present 
in a subprogram or is specified more than once for a 
file. 

Severity: 8; output text not generated. 

Programmer Response: Remove any extra,. dous 
DEFINE FILE statement; make sure duplicate 
DEFINE FILE statements are not specified. 

47 TOO MANY ASFS. 

Explanation: The number of arithmetic statement 
functions has exceeded the compiler's maximum of 
20. 



Severity: 8; output text not generated. 

Programmer Response: Make sure that only data 
variable names are used in EQUIVALENCE lists. 

44 RETURN ERROR. 

Explanation: A RETURN statement is present in a 
main program. 

Severity: 8, output text not generated. 

Programmer Response: Remove the RETURN state- 
ment and supply a STOP statement. 

45 MISSING DEFINE FILE. 

Explanation: A DEFINE FILE statement is missing 
in a main program that contains a direct access 
READ, WRITE, or FIND statement. 



Severity: 8; output text not generated. 

Programmer Response: Reduce the number of 
arithmetic statement functions, or subdivide the 
program into FUNCTION subprograms. 

48 MISMATCH IN DATA. 

Explanation: Names and constants in a DATA state- 
ment are not in a one-to-one correspondence. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the DATA state- 
ment, deleting extraneous names or constants. 

49 MIXED MODE IN DATA. 

Explanation: A constant and variable in a DATA 
statement do not have the same type. 



Severity: 8; output text not generated. 



Severity: 8; output text not generated. 



Programmer Response: Supply a DEFINE FILE 
statement. 



Programmer Response: Respecify the DATA state- 
ment so that typing is consistent. 
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50 INVAliO H CONSTAN 



bb MISSING FORMAT DELIMITER. 



f->-p!jnjtion: An inv.iiul liiei.i! consUmt is spi.'cilii;(l 
II! d DATA sl.ilcnicni. 

St'vt'iity 8, .iii'(Hit U'xi not ijoncKilcd. 

Proyr.irmnor Hfs,>o,isf. Rcspcciiy itu; DATA st.ile 
rii'Mi!; clit'ck !oi vjiiii ijclimitt i s, 

bl ilWALIU llf.X CONSTANi . 

t\p!.i/ijt;on An ii:vj||.i iiix.KiiM:ini.il coiisldnl is 
s|;''i:ii ii'i! Hi ,1 DA (A sUii'im-nL 

Sri'l}!l!y\ 8, nuttnit Irxi iUI! (J{Miei,il(Ml. 

Pr,'g(\ii»incr iii'siHinse: Rrsfjccifv llu' DA lA Mjie- 
nu'iit iisiiuj (Mily th" cliaijctei s thiough 9. A Ihrougli 
F, .iiiil IsUiiik, loi hcxinltx.iiiial characU'is. 

52 SUBPROGf^AM VAR IN DATA. 

E\i)!jn.nuii>- A siiht>ia(ii,iii> name oi (iuinmy vanubli^ 
is spfcitn'il 111 DATA sS.itcnient. 

Seventy: 8, output tfxt not gerunatsHl. 

Program, ntT Rcs/tonst-: Resp(!cifv the DATA styte- 
mciit, reinovin!! siibt)ioqi ain names oi dummy variables. 

53 COMMON NAME IN DATA. 

EAfjIaaation- A COMMON or GLOBAE variable is 

ioadeii with a DATA specification. 

Severity: 8; output Text not generated. 

Progratyirner Response: Respecify the DATA state- 
rneht, deleting COMMON or GLOBAE variables. 

64 OPFiONS ERROR. 

Explanation: There was an options error in one or 
more corrspilei option statements. (Compiler option 
statements inciude device option statements, the 
CORE statement, the CATEGORY statement, and 
th:; 'PROCESS statement.) Each statement in error 
is followed by the message **CONFLICTING OP- 
TIONS OR INVALID SYNTAX»*. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement(s). 



Explaiuttion: A literal, X, ot H lyp(; group m a FOR 
MAT slali'ine'iil is not lollowed liy a comma, slash, or 
right [)ar(.'nltu'sis. 

Severity: 4, warning. 

Prugranimer Response: Correct llu; statement. 

b6 RELATIONAL IF ERROR. 

Explanation: A relational IF slatemc^nt contains a 
DO stat(;nienl, anothc'i ri^lalional IF slalem(;nl, or a 
lion (.■xeculable statement. 

Severity: 8, output text not genc'ratc'd. 

Programmer Response: Correct the statement. 

b7 INVALID DEBUG VARIABLE. 

Explanation: A variable name is missfielled, not 
deliiK.'d, an EXTERNAL name, the name of a sub- 
pi ogram (not ttiis function), a dummy argument, or 
an attempt is made to SUBCHK a scalar. 

Severity: 4; warning. 

Programmer Response: Correct the DEBUG state 
ment. 

58 INVALID DEBUG OPTION. 

Explanation: A DEBUG option is specified inajrrect- 
ly; or the NOTRACE option is specified with AT 
and/or TRACE statements in the DEBUG packet. 

Severity: 8; output text not generated. 

Programmer Response: Correct the DEBUG packet 
as necessary. 

59 INVALID RECORD NUMBER. 

Explanation: The record number expression in a 
READ, WRITE, or FIND statement does not evaluate 
to an integer value. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the expression so 
that it is an integer value greater than zero. 
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60 PROGRAM NAME MISSING. 



63 DATA NAME DOUBLY DEFINED. 



Explanation: No name is specified in the PROGRAM 
statement. 

Severity: 8; output text not generated. 

Programmer Response: Supply a program name. 

61 INVALID DEBUG PACKET. 



Explanation: A variable in a DATA statement is 
previously defined. 

Severity: 4; warning. The last definition is used. 

Programmer Response: Respecify variables using 
different names; or remove previously defined 
variables from the DATA statement. 



txplanation: The DEBUG packet contains statements 
other than AT and TRACE. 

Severity: 8; output text not generated. 

Programmer Response: Remove all but AT and 
TRACE statements from the packet. 

62 NOT ENOUGH CORE. 

Explanation: Total constant, variable, buffer, and 
lOB allocations exceed the indicated number of 
bytes: 



Models 6, 10, and 12 



62,720 bytes 



Model 15 with Program 49,152 bytes 

Number 5704-FO1 



64 MISSING RIGHT PAREN. 

Explanation: A required right parenthesis is missing. 

Severity: 8; output text not generated. 

Programmer Response: Supply required right paren- 
thesis; or remove the extraneous left parenthesis. 

65 COMPUTED GO TO ERROR. 

Explanation: More than 60 statement labels are 
specified in the COMPUTED GO TO statement. 

Severity: 8; output text not generated. 

Programmer Response: Reduce the COMPUTED 
GO TO statement into two or more statements. 



Model 15 with Program 57,344 bytes 

Number 5704-FO2 

For program 5704-FO2 only: The total external 
storage requirements (external buffers) exceeds 64K. 

Severity: 8; output text not generated. 

Programmer Response: 
(one of the following): 

• Segment the program into smaller subprograms 
that can be overlaid in an overlay environment. 

• Separate the program into a number of smaller 
programs performing independent functions. 

• Use either the SHRBUFF or EXTBUF (Model 15 
with Program Number 5704-FO2 only) options 
for DAD files. 



66 MISSING STMT NUMBER. 

Explanation: The FORMAT statement does not 
have a statement number. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the statement with 
a statement number. 

67 MISSING LEFT PAREN. 

Explanation: The FORMAT statement does not 
begin with a left parenthesis. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 
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68 INv'AiJD SCALE FACTOR. 



72 MEANINGLESS NUMBER. 



Explanation: The FORMAT statement specifies a 
scoie factor on a data type other than D, E, or F, or 
no number or an invalid number precedes the scale 
factor, or the scale factor is greater than 127 or less 
than -!27. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 

G9 FIELD TOO LARGE. 

Explanation: The FORMAT statement contains a 
liteiai longer than 255 characters or a numeric 
specification greater than 255. 

Severity: 8; output text not generated. 

Programmer Response: Resfucture the statement; 
sftjment large numeric specifications wherever 

possible. 

70 UNBALANCED PARENTHESES. 

Explanation. The FORMAT statement has a nesting 
level greater ihan 2, or an enclosed literal, or more 
code aftei trie last right parenthesis, or too large an 
H specification, or the number of right parentheses 
is iess than the number of left parentheses. 

Severity: 8: output text not generated. 

Programmer Response: Correct the statement. 

71 INVALID FIELD WIDTH 

Explanation: The i ORMAT statement contains a 
field Width of zero, or in a D, E, or F specification, 
W is specified less than D, or a literal of length is 

ipecified. 

Severity: 8; output text not generated. 
Programmer Responsi;: Cortect the statement. 



Explanation: The FORMAT statement contains a 
meaningless number (for example, a field or group 
count of zero), or a field count precedes a literal or 
T format specification. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 

73 INVALID DELIMITER. 

Explanation: The FORMAT statement has a delimiter 
other than a comma or slash, or there are two consecu- 
tive data items without an intervening delimiter, or two 
consecutive delimiters. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 

74 MORE THAN 1 GENERIC STMT. 

Explanation: The program contains more than one 
GENERIC statement. 

Severity: 4; warning. 

Programmer Response: Remove extraneous 
GENERIC statements. 

75 INVALID CHARACTER. 

Explanation: The FORMAT statement contains a 
character that is not a valid format character. 

Severity: 8; output text not generated. 

Programmer Response: Correct the statement. 

76 INVALIDS NAME. 

Explanation: A name beginning with $ is specified 
for a FUNCTION or SUBROUTINE subprogram. 

Severity: 8; output text not generated. 

Programmer Response: Rename the subprogram. 
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77 MISSING DEVICE OPTIONS. 



82 INCORRECT NUMBER OF ARCS. 



Explanation: A sequential or direct access I/O 
statement appears without a matching device options 
statement specified, or a DEFINE FILE statement 
appears with no corresponding direct access device 
options statement. 

Severity: 8; output text not generated. 

frogrammer Response: Specify the proper device 
options statements. 

78 STATEMENTS FOLLOWING END. 

Explanation: The END statement is not immediately 
followed by a /*. 

Severity: 4; warning. 

Programmer Response: Remove extraneous state- 
ments. Place the END statement after all statements 
in program execution. 

79 DUPLICATE UNIT NUMBER. 

Explanation: A logical unit number is used more 
than once. 

Severity: 8; output text not generated. 

Programmer Response: Redefine files so that each 
logical unit number defines one file only. 

80 INVALID UNIT NUMBER. 

Explanation: The logical unit number in a READ, 
WRITE, BACKSPACE, REWIND, END FILE, or 
FIND statement is of the wrong type or is zero. 

Severity: 8; output text not generated. 

Programmer Response: Make sure the logical unit 
number is valid. 



Explanation: An incorrect number of arguments was 
specified for a function in a program containirtg a 
GENERIC statement, or more than 25 arguments are 
present in a CALL statement or function reference. 

Severity: 8; output text not generated. 

Programmer Response: Respecify the number of 
arguments to agree with the number required by the 
function, (for example, specify only one argument 
for SIN); or reduce the length of the argument list to 
25. 

83 PROGRAM SELF REFERENCE. 

Explanation: The program name in the main program 
or subprogram is used as a subroutine name in a CALL 
statement or in a function reference. 

Severity: 8; output text not generated. 

Programmer Response: Respecify either the program 
name or parameter name to make each unique. 

84 INVALID ARGUMENT TYPE. 
Explanation: A subprogram contains: 

1. An argument of the wrong type. 

2. More than one argument not all of the same 
type. 

3. An argument which was an array name. 

4. An argument which was a name that appeared 
in an EXTERNAL statement. 

Severity: 8; output text not generated. 

Programmer Response: Correct the argument type. 



81 TOO MANY NESTED CALLS. 

Explanation: The program contains a statement 
which has more than 20 levels of nesting for functions. 

Severity: 8, output text not generated. 

Programmer Response: Correct the statement. 
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85 INVALID SUBPGM REFERENCE. 

Explanation: The subroutine name in a CALL state- 
ment or a function reference Is in a COMMON, 
GLOBAL, or DATA statement or is dimensioned, or 
the subroutine name in a CALL statement is explicitly 
typed or is missing. 

Severity: 8; output text not generated. 

Programmer Response: Correct the subprogram. 

86 NAME USED AS SUBPR,FUNCT. 

Explanation: A variable name is used as both a sub- 
routine and function name. 

Severity: 8; output text not generated. 

Programmer Response: Assign different names to 
functions and subroutines. 

87 INCONSISTENT NO. OF ARCS. 

Explanation: The number of arguments specified for 
a function in a program containing no GENERIC 
statement was inconsistent with FORTRAN rules. 

Severity: 4; warning. 

Programmer Response: If the function is meant to 
be user-supplied, assign a function name that does 
not duplicate a FORTRAN-supplied function name. 
If the function is meant to be FORTRAN-supplied, 
specify the correct number of arguments. 



88 INCORRECT ARGUMENT. 

Explanation: Without the GENERIC statement 
present, a non-intrinsic processor ibnction contains 

1 . An argument of the wrong type. 

2. More than one argument not all of the same 
type. 

3. An argument which was an array name. 

4. An argument which was a name that appeared 
in an EXTERNAL statement. 

Severity: 4; warning. The function is assumed to be 
user-supplied. 

Programmer Response: Correct the argument. 

89 DATA STMT ERROR IN ARRAY. 

Explanation: A redefinition of a subsection of an 
array is attempted. 

Severity: 4; warning. 

Programmer Response: Review the DATA statement 
and correct redefinitions. 

90 INCONSISTENT FUNCT REF. 

Explanation: A non-intrinsic processor function that 
is either non-generic (or the GENERIC statement is 
not present) has a parameter list that does not agree 
with the original reference. 

Severity: 8; output text not generated. 

Programmer Response: Correct the parameter list or 
specify the proper function. 



Appendix B. Compilation Messages 219 



91 DIRECT ACCESS DEV OPTNS. 

Explanation: Two or more conflicting options have 
been specified: 

A. Two buffers were specified for a direct access 
file. SHRBUFF was indicated in the option 
statement; NOSHRBUFF is assumed and two 
buffers are used. 

B. For Model 15 with Program Number 5704-FO2 
only; SHRBUFF and EXTBUF have both been 
specified for a direct access file. NOSHRBUFF 
and EXTBUF are assumed. 

Severity: 4; warning. 

Programmer Response: 

A. If NOSHRBUFF is desired, change 'PROCESS 
statement to indicate NOSHRBUFF. If 
SHRBUFF is desired, change the DEVICE 
option statement to indicate one buffer. 

B. If NOSHRBUFF is desired, change the 
'PROCESS statement to indicate NOSHRBUFF. 
If SHRBUFF is desired, change the 'PROCESS 
statement to indicate NOEXTBUF. 
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97 STATEIVIENT NUMBER IS UNREFERENCED. 



Explanation: The statement is not referred to any- 
where in the program. 

Severity: 4; warning. 

Programmer Response: Remove t;<ir;'neous state- 
ment numbers; correct statement numbers that may 
have been specified incorrectiy. 



98 UNDEF VAR NAME, INDICATED BY 'U' IN MAP. 

Explanation: One or more variables are not defined. 
That is, the variable was not assigned a value in the 
program unit. The vanjDie did .not appear on tiie 
left of an equal sign (-), in a DATA statement, as a 
dummy argument in a SUBROUTiNE or FUNCTION 
statement, or in the input/output list in a READ 
statement. The variable(s) are identified by a 'U' 
under the AT column of the storage map. 

Severity: 4; warning. 

Programmer Response: Remove extraneous variables; 
correct variable names that may have beer, specified 
incorrectly. 



92 SEQ DISK DEVICE OPTIONS. 

Explanation: BLOCKSIZE was not 256 or a valid 
submultiple of 256 (128, 64, 32, 16). 256 is assumed 
as the BLOCKSIZE. 

Severity: 4; warning. 

Programmer Response: Specify a valid BLOCKSIZE. 

93 DAD/DEFINE FILE MISMATCH. 

Explanation: The number of define file statements 
does not equal the number of direct access device 
option statements, or the logical unit number(s) does 
not match- 



99 INTERNAL TEXT FORMAT EXCEEDS CORE SIZE. 

Explanation: The compiled program is too large to 
be contained in working storage, and compilation 
cannot continue. 

Severity: 8; compilation is terminated immediately. 

Programmer Respo/ise: Reduce the S'ze of the pro- 
gram by subdividing it into subpro()ra!Tis or by 
eliminating unnecessary parts of rht prog'-jm (tor 
example, reducing the number of CALL arguments 
by using COMMON where possibles, )i by increasing 
the partition size for the program, or iiy specifying 
SHRBUFF on the *PROCESS statemen;. 



Severity: 4; warning. 

Programmer Response: Add the missing statement(s) 
or correct the statement(s). 
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logical unit number for 92 

specifying 

on PRINT device option statement 94 
on PUNCH device option statement 95 
on READ device option statement 94 



names in program 

definition 199 

variable 12 
natural logarithmic functions 

accuracy of 171 

algorithms for 174 

summarized 171 
NE relational operator 20 

negative zero, representation of, in System/3 and 1130 
nested DO 22 

definition 199 
NODECK compiler option 99 
NOGODECK compiler option 99 
NOGOSTMT compiler option 99 
NOLINK compiler option 100 
NOMAP compiler option 99 
non-executable object program 

(see also object module) 

definition 199 
non-executable statements 5 

definition 199 
NOOBJECT compiler option 100 
NOPRINTER device option statement 94 
normal exit of DO loop 22 
NOSHRBUFF compiler option 
NOSOURCE compiler option 
null item, in list-directed data 
numeric character 199 
numeric constant 199 
numeric data 

(see also integer data; real data) 
FORMAT codes for 31 
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40 
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OBJECT compiler option 100 

example of 142 

linkage editor processing of 105 
object library 

contents of 88 

definition 199 

LINK compiler option to store load modules 100 

OBJECT compiler option lo store object modules 100 
object module 

card deck oi 1 1S 

contents of 

end record 1 14 
ESL records 113 
RLD records 113 

detinition 199 

options 

DECK to punch 99 
OBJECT to store into library 100 
object program 

'see also load module) 

definition 199 
OCL. (see operation control ianguagel 
ONE WORD INTEGERS 1 1 30 statement 154 
operation control language (OCL) 

combining with compiler option statements 102 

combining with linloge editor control statements 106 

definition 199 

in job processing 

in compile step 102 
in link edit s'ep 105 
in load module execution step 107 

relationship to ! ORTRAN processing 86 
operation symbols, list of 9 
operator 

arithmetic 197 

relational 20, 199 
options, compiler 97 
order of a FORTRAN program 8 
ordei of operations, in arithmetic expressions 17 
output 

compiler 113 

directing to both printer and punch 141 

linkage editor 88,119 

load module 1 24 

separating debug or dump output 140 
OV ER F L subprogram 1 89 
overflow exceptions 173 

overflow indicator subprogram (OVERFL) 189 
overlay, linkage editor 106 



P, scale factor code (in FORMAT statement) 29, 34 
parameter list, for standard linkage 148 
parentheses 

use in EQUIVALENCE statement 56 

use in expressions 17 

use in FORIVIAT statement 30 

use in subprograms 64 
passing arrays, differences between System/3 and 1 1 30 1 54 
PAUSE algorithm 25 
PAUSE statement 24 

halt code for 24,124 

conversion from (Models 1 and 1 5 to (VIodel 6 25 

response to 24 

summarized 165 
PDUIVlP/DUWtP subprograms 190 

separating from other program output 140 
plus character, use in expressions 9 
positive difference functions 170 
precision increase function 170 
predefined specification of variables 13, 199 
PRINT device option statement 94 

directing output to a card punch 141 
printer, input output 90, 94 

carriage control characters for 39 
procedure subprogram 199 
procedures, FORTRAN-supplied 

definition 199 

list of 87 

use of 86 
PROCESS compiler option statement 98 

function of 93 

placement in job stream 93 
processing, FORTRAN 3 

overview of 83 
program data 108 

program exception in mathematical functions 173 
program output (see output) 
program processing 83 
PROGRAM statement 69 

example of use in job stream 140 

relationship to 11 30 CALL LINK statement 152 

summarized 166 

use of CORE compiler option 140 
program unit, definition 199 
program, FORTRAN 

order of statements in 8 

samples of 75, 201 
programming considerations 

direct-access 131 

sequential disk and tape 135 
pseudo sense light subprograms (SLITE/SLITET) 189 
publications, related v 
PUNCH device option statement 95 

to obtain printed cards 141 
punching and reading the same card 1 52 
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range of DO loop 22 

definition 199 
READ device option statement 94 
READ statement 46 
direct-access 46 

summarized 166 
lists in 37 
sequential 42, 137 
summarized 166 
reading and punching the same card 152 
real (floating point) 
arguments 170 
calcul-.'ions 9 
constants 10 
data 

format codes for 31 
scale factor in 34 
specification of type 

in FORMAT statement 31 
in specification statements 51 
REAL statement 52 
rules for 52 
summarized 166 
record 

fixed length 135 
format codes for 35 
formatted 41 

length of, assigning buffer for 132 
list-directed 41 
load module 1 19 
object module 1 13 
size of, in direct-access file 45 
unformatted 41 
variable spanned 135 
related publications v 
relational expression, definition 199 
relational IF statement 20 

programming considerations for 1 39 
summarized 167 
relational operators, in relational IF statement 20 
relative record number, in direct-access statements 46 
relocation record in load module 119 
repeat factor, in input/output statements 40 
RETURN statement 64 

summarized 167 
REWIND statement 42 

summarized 167 
RLD records, in object module 113 
rounding, differences between Svstem/3 and 1130 154 
routine (see object module) 



sample FORTRAN programs 

examples of coding 75 

post installation checkout 201 
save area 148 
scale factor 34 

definition 199 
sense light subprograms 189 
sequential files 

assigning buffers for 1 37 

definition 200 

multi-file tape processing (Model 15 only) 137 

programming considerations 135 
sequential input/output statements 41 

order of 137 
SEQ40, SEQ44, SEQ45 device option statements 96 
service subprograms 189 
SENTINQ subroutine 195 
severity code 88, 1 16 

definition 200 
SHRBUFF compiler option 99 

sharing buffers 134 
SIGN function 170 
sign transfer functions 170 
SIN function 

accuracy of 172 

algorithm for 177 

as a generic name 67 

error condition tested 194 

summarized 171 
sine and cosine functions 

accuracy of 172 

algorithms for 177 

summarized 171 
single precision 

constant 10 

conversion code 32 

data 9 

scale factor in 34 
SIZE parameter in CORE compiler option statement 97 
SLITE/SLITET subprogram 189 
SNGL function 170 
SOURCE compiler option 98 

listing generated from, sample 117 
source library 88 

definition 200 
source module listing 

definition 200 

sample 117 
source program, definition 200 
specification statements 51 

COMMON 53, 160 

(see also common block) 

definition 200 

DIMENSION 53, 162 

EQUIVALENCE 56, 163 

explicit specification statement 52, 163 

IMPLICIT 51,165 
split screen support (CRT/keyboard) 149 
spooled environment 149 
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underflow exceptions 173 
unformatted record 41 

definition 200 
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^ differences between System/3 and 1 1 30 151 
unit record devices (see card devices) 
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UPACK compiler option 101 
utility subprograms 190 
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statement 98 
vaiiable 12 

definition 200 

names 12 

type specification of 

explicit specification 13 
implicit specification 13 
predefined convention 13 
variable-spanned record! 135 



weak EXTRN reference, in ESL records 1 13 
work files 105, 145 
WRITE statement 
direct-access 47 

summarized 168 
sequential 43, 137 
summarized 168 



X, use in FORMAT statement 36 
XR registers (index registers) 148 



Z, used to define hexidecimal constants 1 1 
zero, in FORTRAN statement numbers 7 



11 30 differences with System/3 151 
1403 printer 

logical unit number for 91 

specifying on PRINT device option statement 94 
1442 card read punch 

differences between System/3 and 1 1 30 152 

logical unit number for 91 

specifying on PUNCH device option statement 95 

specifying on READ device option statement 94 
2222 printer 

logical unit number for 90 

specifying on PRINT device option statement 94 
2501 card reader 

logical unit number for 92 

specifying on PRINT device option statement 94 
2560 MFCM 

logical unit number for 92 

specifying on PRINT device option statement 94 

specifying on PUNCH device option statement 95 

specifying on READ device option statement 94 
3277 display station (CRT/keyboard) 

logical unit number for 92 

programming considerations for 149 

specifying on PRINT device option statement 94 

specifying on READ device option statement 94 
3284 printer 

logical unit number for 92 

specifying on PRINT device option statement 94 
3401/3411 magnetic tape subsystem, logical unit number 

for 90 
5203 printer 

logical unit number for 90 

specifying on PRINT device option statement 94 
521 3 printer 

logical unit number for 90 

specifying on PRINT device option statement 94 
5406 console keyboard 

logical unit number for 90 

specifying on READ device option statement 94 
5424 MFCU, logical unit number for 90 

5444 disk storage drive 

logical unit number for 90, 92 
sharing buffers on 134 

5445 disk storage drive 

logical unit number assignment 90, 92 

restriction on sharing buffers 134 
5471 printer/keyboard 

logical unit number for 90 

specifying on PRINT device option statement 94 

specifying on READ device option statement 94 
5496 data recorder 

logical unit number for 90 

specifying on PUNCH device option statement 95 

specifying on READ device option statement 94 



232 




Technical Newsletter 



This Newsletter No. SN21-5568 

Date 25 November 1977 

Base Publication No. SC28-6874-3 

File No. S3-25 



Previous Newsletters None 



IBM System/3 
FORTRAN IV 
Reference Manual 

© IBM Corp, 1972, 1974, 1976 

This technical newsletter, a part of version 02, modification 00 of IBM System/3 Model 15 FORTRAN 
(Program Product Number 5704-FO2), also applies to IBM System/3 Model 15 FORTRAN (Program 
Product Number 5704-FO1). This technical newsletter provides replacement pages for the subject 
publication. These replacement pages remain in effect for subsequent versions and modifications 
unless specifically altered. Pages to be inserted and/or removed are; 

V, vi 137,138 

91 through 96 149, 150 

96.1, 96.2 (added to accommodate 189, 190 

moved information) 201 through 204 
105, 106 



Changes to text and illustrations are indicated by a vertical line at the left of the change. 

Summary of Amendments 

• Adds support for 3741 

• Tape processing in programs using overlays 

• Miscellaneous technical changes 

Note: Please file this cover letter at the back of the manual to provide a record of changes. 



IBM Corporation, Publications, Department 245, Rochester, Minnesota 55901 



© IBM Corp 1977 



Printed in U.S.A. 



SC28-6874-3 



V) 
OJ 

-n 
O 

H 

> 



33 
n> 



</3 

CO 

ro 

CJl 



re 
a. 

5' 

c 

> 



CO 

o 

N} 
00 
6) 
00 

CO 



® 

International Business Machines Corporation 
General Systems Division 
5775D Glenridge Drive IM.E. 
Atlanta, Georgia 30301 
(USA Only) 

IBM World Trade Corporation 

821 United Nations Plaza, New York, New York 10017 

(International) 



Technical Newsletter 



®/ 



This Newsletter No. SN21-5711 

Date 21 December 1979 



Base Publication No. SC28-6874-3 
File No. S3-25 

Previous Newsletters SN21-5568 
SN21-5634 



IBM System/3 
FORTRAN IV 
Reference Manual 



©IBM Corp. 1972, 1974, 1976 

This technical newsletter applies to the current versions and modifications of the applicable System/3 
programs listed in the edition notice and provides replacement pages for the subject publication. 
These replacement pages remain in effect for subsequent versions and modifications unless 
specifically altered. Pages to be inserted and/or removed are: 

69,70 
87,88 



Changes to text and illustrations are indicated by a vertical line at the left of the change. 

Summary of Amendments 

Miscellaneous technical changes 



Note: Please file this cover letter at the back of the manual to provide a record of changes. 



IB^* Corporation, Publications, Department 245, Rochester, Minnesota 55901 

©IBM Corp. 1979 



Printed in U.S.A. 



